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FOREWORD 


This  research  and  development  was  conducted  under  contract  N00123-81-D0794  with 
Bolt  Beranek  and  Newman,  Inc.  in  support  of  Navy  Decision  Coordinating  Paper,  Z1177- 
PN  (Advanced  Computer-Aided  Instruction),  subproject  Z1I77-PN.03  (STEAMER: 
Advanced  Computer-Based  Training  for  Propulsion  and  Problem  Solving).  It  was  sponsored 
by  the  Chief  of  Naval  Operations  (OP-01).  The  main  objective  of  the  STEAMER  effort  is 
to  develop  and  evaluate  advanced  knowledge-based  techniques  for  use  in  low-cost  portable 
training  systems.  The  project  is  focused  on  propulsion  engineering  as  a  domain  in  which  to 
investigate  these  computer-based  training  techniques. 

This  report,  the  fifth  in  a  series  on  the  STEAMER  project,  describes  the  conversion  of 
the  19E22  mathematical  model  into  an  interactive  computer  environment  to  serve  as  a 
base  for  subsequent  efforts  to  produce  intelligent  personal  training  aids.  Previous  reports 
described  an  initial  framework  for  developing  techniques  for  automatically  generating 
explanations  of  how  to  operate  complex  physical  devices,  provided  a  user's  manual  for  the 
STEAMER  interactive  graphics  package,  described  a  method  for  generating  explanations 
using  qualitative  simulation,  and  described  CONLAN,  a  constraint-based  programming 
language  well  suited  for  describing  and  analyzing  complex  devices  (NPRDC  TNs  81-21,  81- 
22,  81-25,  and  81-26  respectively).  Intended  users  of  this  report  are  system  maintainers 
and  other  research  personnel. 

Appreciation  is  expressed  to  CAPT  Neil  Ammerman  and  his  staff  at  the  Surface 
Warfare  Officers  School  in  Newport,  Rhode  Island  for  several  beneficial  discussions  about 
the  nature  of  the  training  problem  being  addressed  in  this  R&D  effort,  especially  to  LCDR 
Dan  Bowler  for  providing  information  on  how  to  operate  and  use  the  19E22  simulator. 

The  contracting  officer's  technical  representative  was  Dr.  dames  D.  Hollan. 


JAMES  F.  KELLY,  JR. 
Commanding  Officer 


JAMES  J.  REGAN 
Technical  Director 


SUMMARY 


Problem 

The  main  objective  of  the  STEAMER  effort  is  to  develop  ana  evaluate  advanced 
knowledge-based  techniques  for  use  in  low-cost  portable  training  systems.  The  project  is 
focused  on  propulsion  engineering  as  a  domain  in  which  to  investigate  these  computer- 
based  training  techniques.  An  important  component  of  the  STEAMER  system  is  a  detailed 
mathematical  simulation  o‘  a  propulsion  plant. 

Objective 

This  report  describes  the  engine  room  portion  of  the  STEAMER  propulsion  plant 
mathematical  model  and  methods  for  interactively  using  it. 

Approach 

The  STEAMER  mathematical  simulation  is  based  on  the  19E22  training  device  and  has 
been  implemented  in  Maclisp  as  a  preparatory  step  in  the  development  of  a  knowledge- 
based  simulation  of  steam  propulsion  plant  operations.  Maclisp  is  an  interactive  language 
that  provides  facilities  for  observing  and  modifying  running  programs  and  for  interfacing 
other  modules  to  them. 

Results 

The  math  model  is  described,  including  methods  for  starting  and  stopping  it  at 
consistent  points,  initializing  it,  running  only  parts  of  it  at  a  time,  and  connecting  other 
programmed  modules  to  it  (e.g.,  modules  that  print  out  trends  in  the  values  of  specific 
variables).  Facilities  to  smooth  interaction  with  the  system  are  also  described,  such  as  an 
on-line  data  base  of  variables  containing  information  about  their  units,  range,  the  models 
in  which  they  occur,  and  their  role  in  the  simulation  (e.g.,  as  internal  constants  or  as 
values  sent  to  the  real-time  interface). 
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INTRODUCTION 


Problem 

The  main  objective  of  the  STEAMER  effort  is  to  develop  and  evaluate  advanced 
knowledge-based  techniques  for  use  in  low-cost  portable  training  systems.  The  project  is 
focused  on  propulsion  engineering  as  a  domain  in  which  to  investigate  these  computer- 
based  training  techniques.  An  important  base  component  of  STEAMER  is  a  detailed 
mathematical  simulation  of  the  propulsion  plant  operations.  Such  a  mathematical 
simulation  has  already  been  developed  by  the  Navy  as  part  of  the  19E22  training  device.^ 
For  use  in  the  19E22,  the  simulation  is  implemented  as  a  program  that  runs  on  a  Harris 
computer  to  drive  a  mockup  of  the  fire  room,  engine  room,  and  auxiliary  spaces  of  a 
FF1052/1078  class  ship.  It  contains  approximately  10,000  lines  of  FORTRAN  code,  not 
counting  the  real-time  interface,  operator  console  interface,  or  the  operating  system  for 
the  Harris  computer. 

Purpose 

This  report  describes  the  engine  room  portion  of  the  STEAMER  propulsion  plant 
mathematical  model  and  methods  for  interactively  using  it. 

APPROACH 

In  order  to  use  techniques  developed  for  performing  intelligent  computer-aided 
instruction  (e.g.,  the  abilities  to  run  processes  in  different  environments,  for  one  process 
to  examine  and  manipulate  another  process,  or  to  maintain  large  evolving  data 
structures),  it  is  important  to  implement  the  mathematical  model  in  a  symbolic  processing 


^The  19E22  mathematical  model  has  been  published  by  the  Naval  Training  Equipment 
Center  as  Technical  Report  NAVTRAEQUIPCEN  75-C-Ol  15-38A. 


language.  The  language  MACLISP,  an  interactive  language  well  suited  for  developing 
knowledge-based  systems,  has  numerical  capabilities  comparable  in  power  and  efficiency 
to  FORTRAN.  MACLISP  is  widely  used  in  the  artificial  intelligence  community  and  has 
been  used  in  many  projects  to  increase  computer  intelligence  and  enlarge  our 
understanding  of  human  cognition.  The  future  of  MACLISP  is  guaranteed  by  the  well- 
planned  integration  with  its  successors:  NIL  on  the  Digital  Equipment  Corporation  VAX 
family,  and  Lisp  Machine  LISP  on  the  MIT  Lisp  Machine,  a  prototype  of  the  powerful 
personal  computers  to  come.*  For  these  reasons,  the  STEAMER  mathematical  simulation 
is  based  on  the  19E22  training  device. 


RESULTS 

Simulation  Subsystems 

The  overall  steam  propulsion  plant  simulation  comprises  three  separate  subsystems: 
engine  room,  fire  room,  and  auxiliary  spaces.  Each  subsystem  is  designed  to  be  run  either 
independently  or  as  part  of  an  integrated  simulation.  We  have  completely  implemented 
the  engine  room  subsystem  in  MACLISP.  The  remainder  of  this  section  describes  how  to 
run  the  engine  room  models  and  interact  with  them  in  MACLISP.  The  basic  style  of 
running  the  models  should  not  change  appreciably  as  the  remaining  subsystems  are  added 
to  it. 

The  engine  room  consists  of  20  models  that  are  executed  repeatedly  in  a  specified 
fixed  order.  Each  model  maintains  a  large  number  of  state  variables,  both  numerical 
(e.g.,  temperature,  pressure,  flow  rate,  and  enthalpy)  and  logical  (e.g.,  whether  a  pump  is 
on  or  off,  a  valve  open  or  closed).  When  a  model  is  run,  it  updates  some  state  variables  to 
reflect  the  consequences  of  changes  made  by  other  models  in  the  overall  state  of  the 
steam  plant  and  computes  changes  in  variables  due  simply  to  the  passage  of  time.  The 


*For  a  good  introduction  to  MACLISP,  see  P.  H.  Winston  and  B.  K.  P.  Horn,  LISP, 
Addison-Wesley,  1980. 


execution  of  a  model  is  assumed  to  occur  at  a  fixed  interval,  which  is  the  value  of  the 
variable  DELTAT. 

Each  variable  is  a  MACLISP  atom  with  a  mnemonic  name.  Appendix  A  contains  a  list 
of  the  approximately  750  variables  in  the  current  system.  A  variable  is  evaluated  to  get 
its  current  value.  ^ 

The  algorithm  for  each  model  in  the  simulation  is  implemented  as  a  MACLISP 
function.  Evaluating  the  function  once  recomputes  the  state  variables  of  the  model. 
Table  1  lists  the  models  included  in  the  engine  room  subsystem  of  the  simulation. 

Running  the  Simulation 

The  simulation  described  herein  is  currently  available  on  System  G  at  BBN  in  the  file 
<STEAMER>ENGlNEROOM.EXE.  Running  this  file  will  recreate  a  MACLISP  environment 
with  dll  the  engine  room  models  loaded  and  initialized. 

Alternatively,  the  simulation  can  be  loaded  into  an  existing  MACLISP  of  one's  own. 
T  ype: 

(LOAD  <STEAMER>LISP.INI  ] ) 

(ENGINEROOM) 

to  load  the  files  containing  the  simulator  and  the  variable  data  base. 

The  simulation  consists  of  evaluating  each  of  the  models  in  the  following  sequence: 


L i 


Electric 

AlarmBoard  (skipped) 

ControlAir 

150psiSteam 

FireMain 

AuxExhaust 

DPumps 

Distiller 

SalinityPanel  (skipped) 

LOPump 

LOPres 

LOTemp 


^A  few  arrays  are  also  used  to  hold  intermediate  results.  In  MACLISP,  arrays  are 
accessed  by  using  the  array  name  as  one  would  a  function  name  in  an  expression  with 
indices  as  arguments;  for  example,  (LOPumpFlow  2)  returns  the  second  entry  in  the  array 
LOPumpFlow. 
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fable  I 


Models  luded  to  Simula  lion  Stibs,  stem 


Model 

Function 

1  50psiSteam 

This  model  computes  the  availability  and  distribution  of  150  psi 
steam  in  the  engine  room. 

^irEjector 

This  irxxlel  describes  the  main  air  ejector  and  gland  exhaust 
condenser.  It  determines  the  alignment  of  both  stages  of  the  two  air 
ejectors  and  the  resulting  vacuum  produced  in  the  main  condenser. 

^uxExhaust 

This  model  computes  values  for  the  auxiliary  exhaust  in  the  engine 
room;  primarily,  for  use  by  the  main  condenser  unloading  valve. 

CoiitrolAir 

This  model  computes  the  supply  of  control  air  to  the  sialves  in  the 
engine  room. 

Distiller 

This  model  describes  the  distiller  and  the  temperatures,  pressures, 
and  volumes  of  feedwater  as  it  is  used  first  as  the  coolant  and  then 
heated  (by  3psig  desuperheated  steam)  to  170  degrees  Fahrenheit  and 
flashed.  150  psi  auxiliary  steam  is  used  with  the  two-stage  air 
ejectors  to  produce  the  distiller  vacuum. 

DPumps 

This  model  computes  the  status  of  the  pumps  associated  with  the 
distiller:  the  feed  pump,  the  discharge  pump,  and  the  heater  drain 
pump. 

Electric 

This  model  computes  the  distribution  of  power  to  motors  in  the 
engine  room.  It  computes  the  total  load  on  the  electrical  system  as  a 
function  of  circuit  breaker  positions  and  individual  electrical  loads. 

Firemain 

This  model  computes  pressure  in  the  firemain,  the  status  of  the  fire 
pumps,  and  distribution  to  the  main  condenser  and  distiller. 

JackingMotor 

This  model  describes  the  operational  status  of  the  jacking  motor 
attached  to  the  main  reduction  gear  of  the  turbine. 

LOPres 

This  model  includes  operation  of  the  lube  oil  strainer  and  computes 
pressures  for  the  gages  in  the  main  lube  oil  system.  Fluid  flow  is 
calculated  to  determine  the  main  sump  level. 

UOPump 

This  model  controls  the  motors  on  the  two  lube  oil  pumps,  each  with 
high  and  low  speed,  and  manual  or  pressure  controll^,  direct  or 
staodby/emergency  operation. 

LO"  r  mp 

This  model  computes  the  temperature  of  the  lube  oil  in  the  main 
engine  as  a  (unction  of  flow  and  speed,  and  in  the  oil  heater  and  oil 
cooler. 

VlainCondenser 

This  model  computes  the  heat  exchanged  between  the  steam  condens¬ 
ing  from  the  turbine  outlet  and  the  sea  water  flowing  through  the 
condenser. 

MainSteam 

This  model  represents  the  alignment  of  the  main  steam  system  in  the 
engine  room  during  Warmup,  Operating,  and  Secure  modes.  It  also 
computes  the  steam  demand  and  the  main  turbine  header 
temperature  arxJ  pressure. 

MainTurbine 

This  model  computes  steam  pressures  and  temperatures  in  the  high 
and  low  pressure  turbines.  It  determines  the  speed  of  the  reduction 
gears,  propeller  shaft,  propeller,  and,  using  a  model  of  the  ship's 
dynamicsjthe  overall  speed  of  the  ship. 

MCX'ircPump 

This  model  represents  the  electrical  control  of  the  mam  sea  water 
circulating  pump. 

MCCond  Pumps 

This  model  computes  flow  from  the  mam  condenser  produced  by  the 
condensate  pumps  as  a  function  of  suction  head,  system  load  pressure 
and  valve  status.  It  also  namtains  the  status  of  the  condensate 
pumps. 

NK'Kecirc 

This  model  represents  t»ie  automatic  (therfnal)  or  manual  (by-pass) 
recirculating  flow  path  for  the  condensate  when  required  by  a  high 
condensate  temperature. 

MC'SeaCirc 

This  model  Computes  the  sea  water  flow  and  pressures  generated  by 
the  scoop  and/or  pump.  They  are  used  in  the  mam  condensate 
system. 

MTOlandSeal 

This  model  computes  the  steam  availability  and  pressure  (normally  2 
psig)  m  the  glarxl  seals  of  the  high  pressure  and  low  pressure  turbines. 

Note-  The  abbreviations  for  the  engine  room  models  were  chosen  to  allow  one  to  refer 
easily  to  the  individual  models  while  running  the  simulation. 
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MainStcarn 

JackingMotor 

MTGIandSeal 

VlainT  urbine 

MainCondenser 

AirEjector 

MCRecirc 

MCCond  Pumps 

MCCircPump 

MCSea  Circ 
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Once  started,  WACLISP  prints  the  prompt  character  Any  expression  typed  by  the 

user  in  response  to  the  prompt  is  immediately  evalaiuated  by  MACLISP.  All  evaluated 
expressions  return  a  value,  which  is  printed  out  by  MACLISP  before  the  next  prompt. “ 
Running  the  siinulator  consists  of  evaluating  the  proper  sequence  of  model  functions.  The 
simplest  way  to  run  the  simulation  is  with  the  function  RUN,  which  has  three  forms: 

1.  (RUN)  All  of  the  models  are  executed  repeatedly. 

2.  (RUN  expression) 

Like  (RUN)  except: 

If  expression  is  a  number,  the  models  are  executed  that  many  times; 

then  the  simulation  halts. 


If  expression  is  any  other  s-expression,  the  models  are  executed  until 
(EVAL  expression)  is  non-NIL;  then  the  simulation  halts. 

3.  (RUN  expression  models) 

Like  (RUN  expression),  but  only  runs  the  models  in  models,  a  list  of 
model  names,  or  a  single  model  name.  Any  collection  of  names 
presented  in  section  3.1  is  recognized. 


For  example,  to  execute  the  AirEjector  model  10  times,  you  would  type  (RUN  10 
' \lRFi  lECTOR);  to  run  all  the  models  until  the  shaft  speed  reaches  100  RPM,  type  (RUN 
T>  ShaftRotation  100.0)).* 


“Some  of  the  top  level  functions  we  have  provided  return  a  null  character  that  does 
not  show  up  when  printed  on  the  terminal. 

*RUN  is  a  Maclisp  EXPR;  that  is,  the  arguments  to  RU.N  are  evaluated  before  the 
function  is  executed.  Thus,  literal  arguments  other  than  numbers  must  be  preceded  by  the 
MACLISP  quote  character 


y 


•  •  V.  v‘  '  \.V  *•  •  •.*  */  *■-'  •-*  *%^*  *  •-•  .  -  V  -  -  V. 
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Although  RUN  makes  operating  and  monitoring  the  simulation  easy,  other  ineans  of 
controlling  the  simulation  are  provided  to  facilitate  some  common  operations.  Each  of 
the  models  can  be  individually  initialized,  be  turned  on  or  off,  and  have  its  status  printed. 
The  mechanism  for  specifying  these  actions  is  designed  to  allow  a  user  to  think  in  terms 
of  sending  commands  to  the  models  telling  them  what  should  be  done.  Rather  than  having 
to  remember  all  the  functions  written  to  carry  out  each  action  for  each  different  model, 
one  need  only  know  the  names  of  the  models  and  the  keywords  to  specify  the  action. 

Models  are  conceived  as  entities  having  a  limited  number  of  capabilities  to  perform 
certain  actions.  The  most  commonly  exercised  capability  is  the  ability  to  run  the  code 
that  simulates  the  behavior  of  a  portion  of  the  steam  plant.  RUN  works  by  successively 
sending  the  command  "RUN"  to  each  of  the  models  in  the  engine  room.  Other  commands 
are  sent  as  follows; 


(COMMAND  command) 

The  command  is  sent  to  all  the  models  in  the  engine  room.  The  following  are 

recognized  currently; 

LOAD  Load  the  file  containing  the  interpreted  version  of  the  code  for 

the  model. 

FASLOAD  Load  the  file  containing  the  compiled  version  of  the  code  for  the 
model.®  A  compiled  function  runs  faster,  but  cannot  be  inspected 
as  it  is  running.  The  Engine  Room  starts  out  running  only 
compiled  functions. 

INITIALIZE  Define  and  initialize  the  variables  and  arrays  used  in  the  model. 

This  command  can  be  used  to  revert  the  model  to  one  of  four 
known  states,  as  defined  by  the  value  of  the  variable 
IMTIALCONDITION  (see  pg.  9). 

RUN  Execute  the  simulation  function  for  the  model  once. 

ON  Turn  the  model  on  by  setting  its  variables  to  a  normal  operating 

condition. 


Turn  the  model  off  by  setting  the  variables  to  a  normal  secure 
condition. 


“Files  of  compiled  MACLISP  code  are  called  "fasl"  files  and  can  be  recognized  by 
having  this  as  their  file  name  extension. 
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STATUS 


I'rin.t  out  t!ie  values  of  some  selected  variables  that  surumarize 
the  state  of  the  model. 


NAME  Print  a  long  readable  name  for  the  model  instead  of  the 

abbreviated  name  used  to  identify  the  model  to  COMMAND  and 
RUN. 

DESCRIBE  Print  out  a  short  description  of  the  model’s  purpose  and 

operation. 

(COMMAND  command  models) 

Like  (COMMAND  command),  except  send  the  command  command  to  the  model 
or  list  of  models.  (COMMAND  command  ?)  prints  the  models  that  have  the 
ability  to  accept  the  particular  command.  If  a  model  is  sent  a  command  that  it 
is  unable  to  obey,  nothing  happens. 

Because  sending  commands  to  models  is  such  a  common  need,  C,  a  version  of 
COMMAND  that  does  not  evaluate  its  arguments,  has  been  provided.’  For  example,  (C 
ON  DISTILLER)  runs  the  function  that  turns  on  the  Distiller.  (C  STATUS  MAINTURBINE) 
runs  the  Status  function  for  the  MainTurbine  model. 

Controlling  the  Simulation 

Some  variables  in  the  system  are  not  part  of  any  model  but,  rather,  are  used  to  select 
among  alternate  ways  of  reporting  errors  and  initializing  variables.  Other  variables 
interact  with  RUN  to  control  details  of  its  behavior. 

The  simulator  recognizes  two  special  conditions;  freeze  and  malop.  A  freeze  occurs 
when  the  simulator  detects  a  value  outside  the  range  that  can  be  simulated  properly;  for 
example,  a  casualty  in  which  the  lube  oil  unloading  valve  fails  closed  continues 
uncorrected.  The  simulator  is  not  designed  to  continue  after  a  freeze  and  should  be  reset 
to  a  known  state. 

A  malop  occurs  when  the  simulator  detects  improper  operation  of  the  steam  plant; 
for  example,  if  a  pump  is  turned  on  and  its  outlet  valve  is  open  but  the  valve  controlling 
its  gland  sealing  is  closed.  A  large  number  of  specially  chosen  malops  are  recognized  in 
the  simulator. 


’Like  the  RUN  function,  the  arguments  to  COMMAND  are  first  evaluated. 
Consequently,  literal  arguments  must  be  preceded  by  the  quote  character  " 


When  a  freeze  or  a  malop  is  encountered  in  the  sinnuJation,  the  value  of  the  FREEZE 
or  MALOP  variable,  respectively,  controls  the  action  taken  as  follows: 

1.  FREEZE  (normally  set  to  BREAK) 

NIL  The  freeze  is  ignored  and  the  computation  continues. 

WARN  A  message  is  printed,  but  the  computation  continues. 

BREAK  A  message  is  printed  and  a  sequence  break  occurs.  Proceeding  from 
the  break  (by  typing  <altmode>P<space>)  causes  the  simulation  to 
continue. 

2.  MALOP  (normally  set  to  WARN) 

NIL  The  malop  is  ignored  and  the  computation  continues. 

WARN  A  message  is  printed,  but  the  computation  continues. 

BREAK  A  message  is  printed  and  a  sequence  break  occurs.  Proceeding  from 
the  break  (by  typing  <altmode>P<space>)  causes  the  simulation  to 
continue. 

Each  time  through  the  simulation,  the  function  RUN  does  the  following: 

1.  Increments  the  variable  TIME  by  the  value  of  DELTAT.  DELTAT  is  1.0,  so  TIME 
records  the  total  number  of  iterations  through  the  simulation. 

2.  Evaluates  all  forms  in  the  list  STATUS.  For  example,  to  monitor  a  variable's 
trend,  an  expression  is  put  in  the  STATUS  list  to  print  out  its  value  each  iteration. 
Expressions  in  STATUS  can  do  arbitrary  calculations.  RUN  simply  evaluates  them  at  the 
end  of  each  pass  through  the  simulation.  One  sometimes  useful  expression  to  put  on  the 
STATUS  list  is  (WAIT  n).  WAIT  pauses  until  n  seconds  after  the  previous  call  to  WAIT 
have  elapsed.  Adjusting  n  controls  the  speed  of  the  simulation  in  real  time. 

3.  Checks  the  variable  STOP?.  If  STOP?  is  NIL,  RUN  steps  through  the  simulation 
again.  If  STOP?  is  T,  RUN  causes  a  sequence  break  and  returns  control  to  the  terminal  so 
that  you  can  inspect  or  modify  the  state  of  the  simulation.  Continuing  from  the 
breakpoint  by  typing  <altmode>P<si>ice>  res'ir.i.?s  the  simulation.  If  STOP?  is  still  non- 
NIL,  of  course,  the  simulation  will  again  stop  after  one  more  pass  through  all  the  models. 


Control-N  can  be  tvped  anytime  to  start  and  stop  the  simulation.  The  Control-N 
interrupt  has  been  set  to  toggle  the  value  of  STOP?  between  T  and  NIL.  If  Control-N  is 
typed  while  at  a  breakpomt  caused  by  the  RUN  function,  in  addition  to  switching  the 
value  of  STOP?,  the  simulation  continues  immediately  from  the  breakpoint. 

One  can  always  interrupt  processing  in  Maclisp  by  typing  Control-B.  This  causes  an 
immediate  sequence  break  the  moment  the  character  is  typed.  Continuing  from  a 
breakpoint  resumes  processing  from  the  point  it  was  interrupted.  Setting  STOP?  lets  one 
break  at  a  point  in  the  simulation  where  all  models  have  been  updated. 

STATUS  forms  are  evaluated  before  the  function  RUN  checks  STOP?,  so  a  STATUS 
form  can  set  STOP?  to  NIL  and  thereby  halt  the  simulation.  Any  remaining  STATUS 
forms  will  be  evaluated  first.  For  example,  to  print  out  the  hotwell  temperature  and  stop 
the  simulation  if  it  goes  over  75  degrees,  do  the  following: 

(SETQ  STATUS  (LIST  "  (PRINTVARIABLE  'HOTWELLTEMP)) 

'(COND  ((>  HOTWELLTEMP  75.0) 

(SETQ  STOP?  T))))) 

The  models  can  be  inintialized  to  one  of  several  stats,  as  defined  by  the  value  of  the 
of  variable  INITIALCONDITION  (see  pg.  6).  Possible  values  include: 

1.  COLDIRON  Dockside,  with  shore  steam  and  shore  power. 

2.  AUXSTEAM  Dockside,  with  one  boiler  and  two  ship  service  turbogenerators, 

but  no  engine  operating. 

3.  15KNOTS  Steaming  at  15  knots,  with  one  boiler  under  automatic  control, 

two  ship  service  turbogenerators  in  parallel  service,  and  the  diesel  generator  lined  up  for 
automatic  start. 

k.  25KNOTS  Steam  at  25  knots,  with  two  boilers;  otherwise  like  15KNOTS. 

If  QUIET?  is  NIL,  and  there  are  no  STATUS  forms  to  be  evaluated,  the  function  RUN 
prints  out  "tick"  each  time  through  the  simulation.  Setting  QUIET?  to  T  inhibits  this 


feature  of  RUN. 


Monitoring  the  Simulation 

The  simulation  is  monitored  by  keeping  track  of  a  collection  of  variables  that 
represent  some  portion  of  the  overall  state  of  the  steam  plant.  While  this  can  be  done 
simply  by  periodically  printing  on  the  terminal  the  name  of  a  variable  and  its  value,  a 
better  method  is  available.  The  display  screen  of  your  terminal  is  divided  into  regions,  or 
windows,  by  typing  (PANEL).  Normal  terminal  dialogue  appears  in  a  window  at  the 
bottom  of  the  screen  called  the  Lisp-Wirvdow.  The  top  of  the  screen  is  another  window 
called  the  BannerBoard,  which  is  reserved  for  displaying  variables,  their  name,  and  value. 
The  middle  of  the  screen  is  a  third  window  called  the  SwitchBoard,  which  can  be  used  to 
display  variables  that  have  only  two  possible  values  (ON  or  OFF,  for  example).  Rather 
than  printing  out  the  value  of  the  variable  like  the  BannerBoard,  the  SwitchBoard  depicts 
values  by  changing  the  background  color  of  the  label.  The  SwitchBoard  itself  is  grey; 
values  are  shown  as  either  white  or  black. 

The  following  functions  provide  the  means  for  creating  and  updating  panels  to  display 
particular  sets  of  variables: 

1.  (CREATE-PANEL  banners  switches)  creates  a  panel.  It  returns  a  list  that  is  the 
argument  for  the  following  two  functions:  RESET -PANEL  and  SHOW-PANEL.  Banners 
and  Switches  are  lists  of  variables,  either  atoms  or  pairs,  whose  first  element  is  an  any 
Lisp  expression  and  second  element  is  a  label  for  the  expression's  value  shown  on  the 
screen.  The  expression  or  variable  will  be  evaluated  each  time  the  panel  is  updated. 

2.  (RESET-PANEL  panel)  clears  the  screen  and  draws  the  static  portion  of  the 
panel;  that  is,  the  labels. 

3.  (SHOW-PANEL  panel)  updates  the  panel  by  writing  the  new  value  of  any  changed 
variables  in  the  BannerBoard,  and  changing  the  color  of  the  changed  variables  in  the 
SwitchBoard.  Panel  should  be  the  one  currently  being  displayed;  that  is,  the  one  last 
initialized  with  RESET-PANEL.  For  example. 
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(CREATE-PANEL 


"(MCSWCondFlow  ((-$  1  3500.0  CSWCondFlow) .  "Reserve  C 
'(PumpButterfly Valve  PumpFlapperOpen)) 

creates  a  panel  that  shows  on  the  BannerBoard  the  value  of  MCSWCondFlow®  and  the 
difference  between  that  variable  and  the  known  capacity  of  the  sea  water  circulating 
pump.  The  difference  is  labeled  "Reserve  Capacity."  The  SwitchBoard  shows  the  values 
of  PumpButterflyValve  and  PumpFlapperOpen.  This  example  demonstrates  the  ability  to 
define  and  monitor  conditions  that  are  not  directly  present  in  the  math  model  as  it  stands, 
but  which  can  be  computed  from  existing  variables. 

While  many  panels  can  be  defined,  only  one  can  be  visible  at  a  time.  Using  CREATE- 
Panel,  many  panels  can  be  created  to  correspond  to  different  collections  of  state 
variables.  Any  one  panel  can  then  be  displayed  using  RESET-PANEL  and  subsequently 
updated  using  SHOW-PANEL.  A  common  thing  to  do  is  to  create  a  panel,  assign  it  to  a 
variable  (say  PI),  and  append  to  STATUS  the  form  (SHOW-PANEL  PI).  Henceforth,  the 
displayed  variables  will  be  updated  each  time  through  the  simulation  and  the  panel  window 
will  always  contain  the  current  state  while  the  simulation  is  running. 

Looking  up  Variables  Used  in  the  Simulation 

The  simulator  variables  have  been  given  mnemonic  names  to  facilitate  remembering 
them  and  recalling  their  meaning.  Appendix  A  is  a  list  of  variables  currently  used  in  the 
simulation.  A  data  base  of  variables  residing  in  the  system  stores  the  following  useful 
information; 

1.  Fortran  name  identifying  the  variable  in  the  math  model  documentation. 

2.  Initial  condition,  or  constant  value. 

3.  Units. 


“MCSWCondFlow  is  the  flow  of  sea  water  through  the  main  condenser  measured  in 
GPM. 


4.  Normal  range. 

5.  Models  in  which  the  variable  occurs. 

6.  Type:  Model  constant,  internal,  exported,  imported,  or  real-time  interface 


variable. 

7.  Discrete  or  continuous. 

The  data  base  is  also  used  to  store  a  string  representation  of  the  name  for  more  readable 
output®  and  to  allow  automatic  completion  of  variable  names  during  input. 

The  following  functions  can  be  used  to  help  identify  variables  by  looking  for  names 
that  contain  particular  strings  of  characters. 


1.  (AproposVariable  substringl  .  .  .  substringN) 

Returns  a  list  of  variables  that  each  contain  all  the  sub¬ 
strings. 

2.  (AproposVariablePrint  substringl  .  .  .  substringN) 

Like  AproposVariable,  but  prints  out  the  names  instead  of 
returning  them  as  a  list. 

It  is  often  useful  to  find  variables  that  share  common  properties;  for  example,  all  the 
variables  in  the  AirEjector  model  used  for  the  real-time  interface.  The  following 
functions  retrieve  variables  from  the  data  base. 


1.  (FindVariable  keywords  models) 

returns  a  list  of  variables  used  in  models  that  contain  each  of 
keywords  in  their  model  description.  Model  descriptions  characterize 
each  variable's  use  in  a  model  with  one  of  the  following  phrases,  in 
which  the  vertical  bar  "  | "  denotes  "or": 

•  model  constant 

•  discrete  |  continuous  from  |  to  models  ]  RTI 

•  discrete  j  continuous  internals 

2.  (FindVariablePrint  Keywords  models) 

Like  WhichVariable,  but  prints  out  the  names  instead  of  returning 
them  as  a  list. 


Information  about  individual  variables  can  be  obtained  using  the  following  functions: 

1.  (DV  itame)  Describes  the  variable.  It  prints  information  from  the  variable 

data  base. 

2.  (DFV  name)  Like  DV,  but  accepts  the  variable's  Fortran  name  instead. 

3.  (PV  name)  Prints  the  variable's  current  value. 

4.  (PFV  name)  Like  PV,  but  accepts  the  variable's  Fortran  name  instead. 

Since  names  for  variables  were  chosen  to  be  descriptive  of  the  value  they  represent, 
they  tend  to  be  very  long.  A  mechanism  for  automatically  supplying  the  remainder  of  a 
partially  typed  name  has  been  provided  to  facilitate  entering  these  lengthy  names  at  the 
toplevel  of  Lisp.  Whenever  the  character  is  encountered  by  the  MACLISP  reader,  it 
enters  a  special  mode  expecting  a  variable  name  to  be  typed.  Within  this  mode,  the 
following  characters  are  treated  specially: 

1.  SPACE  Completes  the  entry  if  a  variable  name  is  unambiguously  specified  by 

the  characters  entered.  Otherwise,  the  bell  is  rung  and  the  reader 
waits  for  further  characters  to  disambiguate  the  partial  name. 

2.  RETURN  This  is  treated  just  like  a  Sjjace. 

3.  RUBOUT  Deletes  the  last  character  typed.  Deleting  the  "%"  character  exists 

from  variable  reading  mode. 

4.  ?  Lists  the  possible  completions. 

5.  Control-F  Completes  the  name  to  the  first  ambiguous  character. 

6.  Control-W  Deletes  all  characters  entered  so  far,  but  stays  in  variable  reading 

mode. 

7.  Control-LI  Exits  variable  reading  mode. 

8.  Control-R  Retypes  the  characters  in  the  name. 

Timing  Measurement  for  the  Simulation 


No  delays  were  introduced  to  provide  "real-time"  behavior.  Although  even  this  speed 
could  be  further  improved,*®  there  is  already  sufficient  headroom  for  considerable 
additional  computation.  The  speed  of  the  simulation  need  not  be  compromised  to  build  a 
simulation  that  would  be  easy  to  modify  and  connect  to  other  components  of  the  overall 
system. 
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APPENDIX  A 


LIST  OF  VARIABLES 


12001bAuxSteam 

12001bAuxSteamGage 

1 5  0 IbAuxS  teamGage 

IBOlbAuxSteamGagel 

1501bAuxSteamGage2 

15 OlbSteamAva liable 

ISOlbSteamEnable 

1501bSteamEnable? 

ISOlbSteamEnthalpy 

ISOlbSteamPr es 

ISOpsiSteamEnthalpy 

ISOpsiSteamMinValue 

3psigSteamControlVa Ive 

3tol5psigAirPilotOu tputPres 

AccelModel 

AccelMode2 

AccelMode3 

Ad vanceCoeff Function 
Af tDevices 

Af tJour nalBear ingTemp 

AftLainps 

AheadEnable 

AheadGuarding 

AheadGuar d ingWarraupBypass 

AheadSteamChestPres 

AheadSteaniChestPr  esTC 

Air Ejector AuralCue 

Air Ejec tor Boil ingTemp 

Air Pilotinput 

AmbientHeatLossCoef f 

Aster  nEnable 

AsternGuarding 

Aster nGuar ding War mupBypass 

Aster nSteamFlow 

Aster nSteamFlowFunc t ion 

Aster nThrottle 

AttachedLOPumpFlow 

AttachedPumpDischargeF/PDCoef f 

AttachedPumpDischargePr es 

AttachedPumpSuctionF/PDCoef f 

AttachedPumpSuctionPr es 

AuralCueCircPumpHi/Lo 

AuralCueCircPumpOn/Of f 

AuralCueEnableVentFans 

AuxExhaustHeader StopValve 

AuxExhaustPres 

AuxExhaustSteamValv  e 

AuxExhaustSteamValvel 


AuxExhaustSupplyPr es 
AuxExhaustToDistilPlant 
AuxExhaustToDPCAPr es 
AuxExhaustUnloadingPr es 
AuxExhaustUnloadingWeightFlow 
AuxMachSWCool ingOn 
AuxSteamToDAEPr es 
AuxSteamToOr if icePres 
AuxSWCooling Header On 
Bear ingsF/PDCoef f 
Bear ingTC 
Bear ingTempFactor 
Bear ingTempRi se 

Boiler lASteamDr umLevel Indicator 
Boiler iBSteamDrumLevelIndicator 
Br ineEductorSound 
Br ineOverboardDischargePres 
Br ineOverboardvalve 
BypassValveCoef f 
CasualtyAftJour nalBear ing 
CasualtyAttachedPumpFail 
CasualtyCircPumpMotorPail 
CasualtyCloggedStrainer 
CasualtyCondPumplA 
CasualtyCondPumplB 
CasualtyFwdJournalBear ing 
CasualtyFwdPinionBear ing 
CasualtyGlandSealLoss 
CasualtyGlandSteamLoss 
Casualty Ins true tor Rumble 
CasualtyLOCooler Failure 
CasualtyLOPumpl 
CasualtyLOPump2 

CasualtyMainThrottle Inoperative 
CasualtyMainThrustBear ing 
CasualtyPr esAmplitude 
CasualtyRecircValveFailClosed 
CasualtyReductionGear Noise 
CasualtyScoopFlapperValveJamClosed 
CasualtyScoopFlapperValveJamOpen 
Casual tyStagelUnitlAEFail 
CasualtyStagelUnit2AEFail 
CasualtyStage2UnitlAEFail 
Casual tyStage2Unit2AEFail 
CasualtyTC 

Casual tyUn load ingValvePailCloscd 
CasualtyUnloadingValveStuckOpen 
CasualtyUnloadingVa IveStuckShut 


CavitationPumpFlowLimit 
CellSDumpValveOvetr ide 
CentralDevices 
CentralLamps 
CircleWVentFansAS 
C i r  c le WVe  n tFan  sASLamp 
CircleWVentFansASPower Enable 
CircleWVentFansEC 
CircleWVentFansECLamp 
CircleWVentFansECPower Enable 
CircPumpHighSpeedindicator 
CircPumpHighStart 
C i r cPumpLowSpeed Ind ica tor 
CircPumpLowStart 
CircPumpMotor Speed 
C i r  cPumpPowe  r  On 
CircPumpStop 
GoldStar tFailureTC 
CombinedTempInterceptConstant 
Comb i nedTempSlopeCons tan t 
CoinmonConde  nse  r  F  i  1 1 
CondensateFlow 
Conde  n  sa  te  Flow AEConde  nse r 
Conde  n  sa  te  Flow AEEn  tha Ipy 
CondensateLevelGain 
Condensate  Manome  te  r  Bo  t  tomLe  ve 1 
Conde nsateManome ter Level 
Conde  n  sa  teOu  tSWHe  a  ter  Temp 
CondensatePumpGlandSealLoss 
CondensateRecircPathClosed 
CondensateSystemLoadPr es 
Conde nsateSystemShutoff Valve 
Conde  n  sa  teSy s  temVa Ive 
CondensateToBilge 
CondensateToBilgeValve 
Conde nsateToCondensateSystem 
Conde nsateToFireRooraFlow 
CondensateToSteamDr ainSystem 
Condensate Volumetr icFlow 
Condenser Air Pres 
Conde nse rFillFlow 
Condense r HeatTr an sfer Coe ff 
Conde nserLiquidTC 
Conde nse rRecircValveHi 
Condenser  RecircValveLo 
Conde nserSteamPres 
Co  nde  n  se  r  Wa  te  r  BoxP  r  e  s 
CondPumplAAuralCue 
CondPumplAPowerOn 
CondPumplBAuralCue 


Co  ndp  ump  IB  Po  we  r  On 

CondPumpNetPosSuctionHead 

ControlAirGage 

ControlAirGage2 

ControlAirLinedUp 

ControlAirOn 

ControlPanelACCOn 

CoolerCasualtyLeakConstant 

CoolerCasualtyLostLubeFlow 

Cooler Constant 

Coo lerF/PDCoeff 

Coo le r Le a k F/PDCoe f f 

CoolingFlowIntercept 

CoolingFlowThreshold 

Cool ingWa  te  r  Pr  e  sHe  ade  r 

Coo 1 i ng Wa  te  r  Temp 

CounterLimitl 

CounterLimit2 

CounterLimitS 

CrossConnectl 

CrossConnect2 

CrossConnect! 

CrossConnect4 

DischargeButter f lyValvePos 

DischargePres 

DischargeTempCurveConstant 

DischargeTempCurveSlopeConstant 

DischargeTempInterceptConstant 

DischargeValveOn 

DistillateAvailable 

DistillateLevelEr ror 

Distil la teLevelFallGa in 

DistillateLevelGain 

DistillateLevelinput 

Distil la teLevelinputGa in 

DistillateLevelOutput 

DistillateLevelOutputGain 

DistillateLevelRiseGain 

DistillateManometerBottomLevel 

Di s  t i 1 la  teManome  te  r  Le ve 1 

DistillatePumpDischargePres 

Distillate PumpMotorOn 

Distillate  PumpOu  t le  tVa Ive 

Distillate  PumpPowe  r  On 

Distil la tePumpSealVa Ive 

DistillatePumpSound 

DistillatePumpStar t 

DistillatePumpStop 

DistillateZeroPresLevel 

DistillerBr ineDischargeOn 


DistillerBr ineOver boardGage 
Distiller  Pump  sEC 
Distiller Steam 
Distiller SteamGage 
Downs treamValvePres 
DPAuxExhaustDemand 
DPAuxExhaustEnabled 
DPresInput 
DPr esResponseEr ror 
DPr  e  sRe  sponseGa in 
DPr esResponse Output 
DTemp3 
DTemp4 
DTempS 
DTemp6 
DTemp7 
DTemp8 
DTempInput 
EBCSTM 

Ef fectiveSeaWa ter Flow 
EK2TAU 
EKR 

ElectPumpDischargeF/PDCoef £ 
ElectPumpSuctionF/PDCoeff 
EmergencyCondenser SupplyHeader 
EmergencyCoolingDieselGenOn 
EmergencyWarmupConstant 
EmergencyWarmUpF/PDropCoef f 
EmetgencyWarmUpFlow 
EMKW 
EMTl 
EMT2 
EMT3 
EMT4 
EMT5 

Eng ineRoomSeaWa ter Temp 

Eng ineRoomSteara 

Eng ineRoomSteaml 

EstablishValueofP264 

EstablishValueof p284 

EstablishValueofV357 

FeedPumpMotor On 

FeedPumpPower On 

FeedPumpStar  t 

FeedPumpStop 

Fe  e  d  wa  te  r  Coo  le  r  Pr  e  s 

Feedwater InAf terCondenserTemp 

Feedwater Inle  tTemp 

Feedwater  Inter stageTemp 

FeedwaterOutAf terCondenserTemp 


Feedwa  ter Ou  tRe  f Temp 

FeedwaterPr esToStagel 

Feedwa ter PumpOutle  tPr es 

Feedwater Strainer FeedSuct ion 

FillFlowRateConstant 

FilteredHeatExchanger Value 

FinalDistillateTemp 

FireMainHose Adaptor Valve 

Fir eMa inPr  es 

Fir eMa inStopValvel 

Fir eMainStopValve2 

Fir eMa inStopValve3 

FireMainToAuxSWCooling 

FireMainToDistilBr ineEductors 

FirePumplHeader 

FirePump2Header 

Fir ePump3AS 

FirePump3ASLamp 

FirePump3ASPower Enable 

FirePump3Control 

Fir ePump3Con troll 

Fir ePump3Control2 

FirePump3DischargeGage 

FirePump3EC 

FirePump3ECLamp 

Fir ePump3ECPower Enable 

FirePumpSHeader 

FirePump3Motor0n 

PirePump3Power0n 

FirePump3SuctionGage 

PirePump3SuctionValve 

PirePump4Header 

PirePumpOn 

FireRoomCondensatePr es 
PireRoomDistillateValvel 
PireRoomDistillateVa lve2 
Fir stPassFlag 
PorwardSteamFlow 
Forwar dThrottle 
PwdJour nalBear ingTemp 
FwdPinionBear ingTemp 
PWDPumpOu  t le  tVa Ive 
FWDSe aChe s tVa Ive 
PWDTe mpCo n t r o 1 Va 1 ve 
GlandExhaustE jector 
GlandExhaustEjectorVa Ive 
GlandManifoldSteamPr es 
GlandSealFa i lureTC 
GlandSealSteam 
GlandSteamEnthalpy 


G lands teamFlow 

GlandSteamLeakof f Coef f 

G lands teamPresTC 

Heater/Pur  if ier FlowPathEnabled 

Hea  cer /SteamHeader PathEnabled 

Heater Dr  a inReg JackSpindleOpen 

Heater LevelErr or 

Heater LevelFallGa in 

Heater  LevelGa in 

He  a  te  r  Le  ve  1  Inpu  t 

Heater LevelOu tput 

Heater LevelRiseGa in 

HeaterTempFlowFactor 
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B-0 


V.- 


PROGRAM  LISTING 


B.l  ISOpsiSteam 


(defun  ISOpsiSteamRun  {) 

(SETQ  ISOpsiSteamEnthalpy  SteamEnthalpyValue) 

;;  Here  we  ignore  integrated  mode  ... 

;;  (SETQ  Boiler lASteamDrumLevelIndicator  0.0) 

;;  (SETQ  Boiler iBSteamDrumLevelIndicator  0.0) 

(COND  ( 150 IbSteamEn able? 

(SETQ  ISOlbAuxSteamGagel  150.0) 

(SETQ  1501bAuxSteamGage2  150.0) 

(SETQ  Distiller SteamGage  15.0) 

(SETQ  LOPur if ier Heater SteamGage  0.0) 

(SETQ  Heater //SteamHeader Pa thEn able d  NIL) 

(COND  ((OR  (NOT  LOPurif ierHeaterSteam) 

(<  LOPur if ierValveSteam  .1)) 

(SETQ  LOPur if ier Heater SteamGage  0.0)) 

(EL906  ;  Whatever  that  is! 

(SETQ  LOPur if ier HeaterSteamGage 
(*$  .67 

ISOlbAuxSteamGagel 

(-$  LOPur if ierValveSteam  .1)))) 

(T 

(SETQ  LOPur if ierHeaterSteamGage  ISOlbAuxSteamGagel))) 
(SETQ  ISOlbSteamPr es  ISOlbAuxSteamGagel) 

(SETQ  ISOlbSteamAvailable  Distiller Steam) 

(SETQ  ISOlbSteamEnable  GlandSealSteam) ) 

(T 

(SETQ  DistillerSteamGage  0.0) 

(SETQ  LOPur if ierHeaterSteamGage  0.0) 

(SETQ  ISOlbSteamPres  0.0) 

(SETQ  ISOlbSteamAvailable  NIL) 

(SETQ  ISOlbSteamEnable  NIL))) 

0  ) 


(defun  ISOpsiSteamlnit  () 

;  ISOpsiSteam  enabled  to  GlandSeal,  Distiller  and  LOPur if ierHeater . 
(setq  GlandSealSteam  (select-ic  '{nil  nil  t  t)  )  ) 

(setq  Distiller Steam  (select-ic  '(nil  t  t  t)  ) ) 

(setq  LOPur if ierHeater Steam  (select-ic  '(nil  nil  nil  nil))) 

(setq  ISOlbSteamEnable?  (select-ic  '(nil  t  t  t) ) )  ;  instructor  knob 

;  HeaterSteamlnletValveLif t  is  also  initialized  in  LOTemp. 

(setq  Heater SteamlnletValveLift  (select-ic  '(0.0  0.0  0.0  0.0))) 


(SETQ  SteamEnthalpyValue  1200.0) 
(SETQ  LOPur if ierValveSteam  0.0) 
(SETQ  EL906  NIL) ) 


(version) 


B.2  AirEjector 


(declare  (unspecial  temp)  (flonum  temp)) 

(defun  MAEandGECondRun  () 

(PRCX;  (temp) 

(SETQ  AirEjectorAuralCue  NIL) 

(SETQ  StagelUnitlAEOperating  T) 

(SETQ  StagelUnit2AEOperating  T) 

(SETQ  Stage2UnitlAEOperating  T) 

(SETQ  Stage2Unit2AEOperating  T) 

(COND  (SteamlnletValve  (SETQ  DownstreamValvePres  ISOlbSteamPres) ) 

(T  (SETQ  DownstreamValvePres  0.0))) 

(COND  ( (NOT  (OR  (<  DownstreamValvePres  ISOpsiSteamMinValue) 
CasualtyGlandSealLoss 

(>  Coo lingWa ter Temp  AirEjectorBoilingTemp) ) ) 

;  Assuming  EJKl  in  code  is  really  ESKl. 

;  This  is  code  up  to  tag  3506. 

(COND  ((AND  UnitlAirSuctionValvel  UnitlAirSuctionValve2) 

(SETQ  UnitlSuctionOn  T) ) 

(T 

(SETQ  UnitlSuctionOn  NIL))) 

(COND  (UnitlAirSuctionValve2  (SETQ  Stage2UnitlAELinedUp  T) ) 

(T  (SETQ  Stage2UnitlAELinedUp  NIL))) 

(COND  ((AND  Stage2UnitlAELinedUp 
UnitlAirSuctionValvel 
(NOT  CasualtyStage2UnitlAEFail) ) 

(SETQ  UnitlAEInoperative  NIL)) 

(T 

(SETQ  UnitlAEInoperative  T) ) ) 

(COND  ( (AND  StagelUnitlAELinedUp 

(NOT  CasualtyStagelUnitlAEFail) ) 

(SETQ  UnitlAEOperating  T) ) 

(T 

(SETQ  UnitlAEOperating  NIL))) 

; ;  Now  repeat  for  IE=2,  that  is,  unit  2 

(COND  ( (AND  Unit2Air SuctionValvel  Unit2AirSuctionValve2) 

;;  Assuming  EJQ114  is  really  EJA114. 

(SETQ  Unit2SuctionOn  T) ) 

(T 

(SETQ  Unit2SuctionOn  NIL))) 

(COND  (Unit2AirSuctionValve2  (SETQ  Stage2Unit2AELinedUp  T) ) 

(T  (SETQ  Stage2Unit2AELinedUP  NIL))) 


(COND  ( (AND  Stage2Unit2AELinedUp 
Un it2Air  SuctionValvel 
(NOT  CasualtyStage2Unit2AEFail) ) 

(SETQ  Unit2AEInoperative  NIL)) 

(T 

(SETQ  Unit2AEInopetative  T) ) ) 

(COND  ((AND  StagelUnit2AELinedUp 

(NOT  CasualtyStagelUnit2AEFail) ) 

(SETQ  Unit2AEOperating  T) ) 

(T 

(SETQ  Unit2AEOperating  NIL))) 

;  After  DO  loop  at  tag  3510 

(COND  ( (OR  UnitlSuctionOn  Unit2SuctionOn) 

(SETQ  AirEjector Aur alCue  T) ) 

(T 

(SETQ  Air EjectorAuralCue  NIL))) 

(COND  (CondensatePumpGlandSealLoss 

(SETQ  CasualtyPresAmplitude  3.0) 

(SETQ  CasualtyTC  ;  VDT  =  reciprocal  of  DeltaT 
(*$  StagelFailureTC  (//$  1.0  DeltaT)))) 

((OR  UnitlAEOperating  Onit2AEOperating) 

(SETQ  CasualtyPresAmplitude  0,0) 

(SETQ  CasualtyTC  (*$  ColdStar tFailureTC  (//$  1.0  DeltaT)))) 
( (OR  UnitlAEInoper ative  Unit2AEInoper ative) 

;  tag  3504 

(SETQ  CasualtyPresAmplitude 

(-$  3.0  (*$  2.0354  CondenserSteamPr es) ) ) 

(COND  ( (<  CasualtyPresAmplitude  0.0) 

(SETQ  CasualtyPresAmplitude  0.0))) 

(SETQ  CasualtyTC 

(*$  StagelFailureTC  (//$  1.0  DeltaT)))))) 

(T 

(SETQ  Stage2UnitlAELinedUp  NIL) 

;  tag  3506 

(SETQ  Stage2Unit2AELinedUp  NIL) 

(COND  (CasualtyGlandSealLoss 

(SETQ  temp  (ToFlonum  GlandSealFa ilure) ) ) 

(T 

(SETQ  temp  1.0) ) ) 

(SETQ  CasualtyPresAmplitude 

(-$  30.0  (*$  2.0354  CondenserSteamPr es) ) ) 

(COND  ( (<  CasualtyPresAmplitude  0.0) 

(SETQ  CasualtyPresAmplitude  0.0))) 

(SETQ  CasualtyTC 

(*$  Stage2FailureTC  {//$  1.0  DeltaT)  temp)))) 

(SETQ  CondenserAir Pres 

(//$  1.0  (*$  (+$  CasualtyTC  1.0) 

(+$  CasualtyPresAmplitude 

(*$  CasualtyTC  CondenserAirPr es) ) ) ) ) 

(COND  (GlandExhaustEjectorValve  (SETQ  GlandExhaustEjector  0.167)) 

(T  (SETQ  GlandExhaustEjector  0.0))) 

(SETQ  Seconds tageUnitsOnCount 

(COND  ((AND  Stage2UnitlAELinedUp  Stage2Unit2AELinedUp)  2.0) 

((XOR  Stage2UnitlAELinedUp  Stage2Un it2AELinedUp)  1.0) 


(T  0.0))) 

(COND  (  (>  EJFRV  0.0)  (SETQ  EJKFX  EJKRX) ) 

(T  (SETQ  EJKFX  1.0))) 

(SETQ  temp  (*$  Condense teFlow  EJKFX)) 

(COND  ( (>  temp  2.0)  (SETQ  temp  2.0))) 

(SETQ  a  (*$  GlandExhaustEjector  .133333)) 

(SETQ  temp  (+$  HotwellTemp 

(*$  (//$  7.31  temp) 

(+$  (*$  (-$  ISOpsiSteamEnthalpy  180.07) 

(+$  (*$  SecondStageUnitsOnCount  .2705)  a)) 
(*$  (-$  GlandSteamEnthalpy  180.07) 
GlandSteamFlow) ) ) ) ) 

(COND  ( (>  temp  240.0)  (SETQ  temp  240.0))) 

(SETQ  Coo lingWa ter Temp  (//$  (+$  (*$  Cool ingWa ter Temp  TempTC) 

(*$  temp  DeltaT)) 

(+$  TempTC  DeltaT))) 

(COND  ((AND  (>  GlandManifoldSteamPres  0.0) 

(<  Condensate Flow  5.0)) 

(Malop  4  bit7) ) ) ) ) 


(defun  MAEandGECondInit  () 

(setq  StagelUnit2AirSuctionValve  (select-ic  "(nil  nil  nil  nil))) 
(setq  StagelUnitlAirSuctionValve  (select-ic  "(nil  nil  t  t) ) ) 
(setq  Unit2AirSuctionValve2  (select-ic  "(nil  nil  nil  nil))) 

(setq  UnitlAirSuctionValve2  (select-ic  "(nil  nil  t  t) ) ) 

(setq  Unit2Air SuctionValvel  (select-ic  "(nil  nil  nil  nil))) 

(setq  UnitlAirSuctionValvel  (select-ic  "(nil  nil  t  t)  ) ) 

(setq  SteamlnletValve  (select-ic  "(nil  nil  t  t) ) ) 

(setq  GlandExhaustEjectorValve  (select-ic  "(nil  nil  t  t) ) ) 

(SETQ  GlandSteamFlow  0.0) 

(SETQ  GlandSealFailure  NIL) 

(SETQ  GlandSteamEnthalpy  0.0) 

(SETQ  EJFRV  0.0) 

(SETQ  AirEjectorAuralCue  NIL) 

(SETQ  CasualtyGlandSteamLoss  NIL) 

(SETQ  CasualtyStage2Unit2AEFail  NIL) 

(SETQ  CasualtyStage2UnitlAEFail  NIL) 

(SETQ  CasualtyStagelUnit2AEFail  NIL) 

(SETQ  CasualtyStagelUnitlAEFail  NIL) 

(SETQ  CasualtyGlandSealLoss  NIL) 

(SETQ  DownstreamValvePres  0.0) 

(SETQ  UnitlAEOperating  NIL) 

(SETQ  UnitlAEInoperative  T) 

(SETQ  Unit2AEOperating  NIL) 

(SETQ  Unit2AEInoperative  T) 

(SETQ  StagelUnitlAELinedUp  NIL) 

(SETQ  StagelUnit2AELinedUp  NIL) 

(SETQ  Stage2UnitlAELinedUp  NIL) 

(SETQ  Stage2Unit2AELinedUp  NIL) 


(SETQ  CasualtyPresAmplitude  0.0) 
(SETQ  CasualtyTC  0.0) 

(SETQ  Condenser Air Pres  0.0) 

(SETQ  GlandExhaustEjector  0.0) 
(SETQ  CoolingWaterTemp  70.0) 

(SETQ  Condensate Flow  0.0) 

(SETQ  GlandSealFailureTC  .3) 

(SETQ  AirEjectorBoilingTemp  200.0) 
(SETQ  TempTC  30.0) 

(SETQ  ISOpsiSteamMinValue  100.0) 
(SETQ  ColdStartFailureTC  20.0) 
(SETQ  StagelFailureTC  30.0) 

(SETQ  Stage2FailureTC  300.0) 

0  ) 

(version) 


B.3  AuxExhaust 


(defun  AuxExhaustRun  () 

(SETQ  MCUnloadingValveLineupStatus 

InstructorEnableMainCondenser Unloading) 

(SETQ  AuxExhaustHeaderStopValve 

InstructorEnableMainCondenser Unloading) 

(SETQ  AuxExhaustPres 

IndependentModeAuxExhaustPr es) 

(SETQ  Ma inCondenserSteamEnthalpy 

IndependentModeAuxExhaustEnthalpy) 

(SETQ  EXWUCM 

AuxExhaustUnloadingWe ightFlow) 

(SETQ  Unload ingFlowDPEnab led 

InstructorEnableMainCondenser Unloading) 

;  tag  3401 

(SETQ  MCUnloadingValveFlowPathEnabled 

(AND  MainCondenserUnloadingStopValve 
AuxExhaustHeaderStopValve) ) 

(SETQ  MCUVMMWeightFLow  0.0) 

(SETQ  MCUnloadingValveStatus 

(COND  (CasualtyUnloadingValvePailClosed  NIL) 

(T  MCUnloadingValveLineupStatus) ) ) 

(SETQ  DPAuxExhaustnemand 

(COND  (DPAuxExhaustEnabled  .67) 

(T  0.0))) 

( SETQ  MCUn load ingVa IveCommandedVa IveLi f t 
(*$  .09473  EXWUCM)) 

(COND  ((NULL  MCUnloadingValveStatus) 

(SETQ  EXWUCM  0.0) 

(SETQ  MCUnloadingValveCoramandedValveLif t  0.0))) 
(COND  ((NULL  MCUn load ingValveFlowPathEnab led) 

(SETQ  EXWUCM  0.0)) 


( (NULL  MCUnloadingValveManualMode) 

(SETQ  MCUVMMWeightFlow 

(*$  MCUnloadingValveManOver r ideValveLif t  10.5556)) 

(SETQ  EXWUCM  0.0)))  ;  tag  3403 

(COND  ( (=  AuxExhaustPr es  0.0)  » 

(SETQ  MCUVMMWeightFlow  0.0))) 

(SETQ  MainCondenserSteamFlow 

(+$  MCUVMMWeightFLow  EXWUCM)) 

(SETQ  AuxExhaustSupplyPres 

(+$  (COND  (AuxExhaustHeaderStopValve  AuxExhaustPres) 

(T  0.0)) 

(COND  ( (AND  UnloadingFlowDPEnabled 

MainCondenserUnloadingStopValve) 

(*$  .1895  (*$  MainCondenserSteamFlow 
DPAuxExhaustDemand) ) ) 

(T  0.0)))) 

(SETQ  AuxExhaustUnloadingPres 
(COND 

(MainCondenserUnloadingstopValve  AuxExhaustSupplyPres) 

(T  0.0))) 

0  ) 


(defun  AuxExhaustlnit  () 

(setq  MCUn  load  ingValveManOverr  ideValveLif  t  (select-ic  "(0.0  0.0  0.0'‘0.0))) 
(setq  MCUnloadingValveManualMode  (select-ic  "(nil  nil  nil  nil))) 

(setq  InstructorEnableMainCondenserUnioading  (select-ic  "(nil  nil  t  t) ) ) 
(setq  MainCondenserUnloadingStopValve  (select-ic  "(nil  nil  t  t) ) ) 

(SETQ  DPAuxExhaustEnabled  NIL) 

(SETQ  MCUn load ingValveFlowPathEnab led  NIL) 

(SETQ  AuxExhaustHeaderStopValve  NIL) 

(SETQ  CasualtyUnloadingValveFailClosed  NIL) 

(SETQ  MainCondenserSteamFlow  0.0) 

(SETQ  IndependentfiodeAuxExhaustEnthalpy  1163.0) 

(SETQ  IndependentModeAuxExhaustPres  16.0) 

(SETQ  AuxExhaustUnloadingWeightFlow  5.0) 

(SETQ  MCUnload ingValveCommandedValveLif t  0.0)) 

(ver  Sion) 


B.4  ControlAlr 


(defun  ControlAir Run  () 

(COND  (ControlAirOn  (SETQ  ControlAirGagel  130.0) 

(SETQ  ControlAirGage2  100.0)) 

(T  (SETQ  ControlAirGagel  0.0) 

(SETQ  ControlAirGage2  0.0))) 

(COND  ((NOT  (<  ControlAirGagel  20.0)) 

(COND  (AuxExhaustToDistilPlant  (SETQ  AuxExhaustToDPCAPres  20.0)) 


(t  (SETQ  AuxExhaustToDPCAPres  0.0))) 

(COND  (LOServiceUnloading  (SETQ  LOServiceUnloadingValve  20.0)) 

(t  (SETQ  LOServiceUnloadingValve  0.0))) 

(COND  (MTGlandSealUnloading  (SETQ  SupplyValveCAPr es  20.0)) 

(t  (SETQ  SupplyValveCAPr es  0.0))) 

(COND  (MTGlandSealSupply  (SETQ  UnloadingValveCAPr es  20.0)) 

(t  (SETQ  UnloadingValveCAPres  0.0)))) 

(T 

(SETQ  AuxExhaustToDPCAPres  0.0) 

(SETQ  LOServiceUnloadingValve  0.0) 

(SETQ  SupplyValveCAPr es  0.0) 

(SETQ  UnloadingValveCAPres  0.0))) 

(COND  ((OR  (<  ControlAirGage2  60.0) 

(NOT  SteamControlAheadGuarding) 

(NOT  AheadGuarding) ) 

(SETQ  ResetAheadGuardingMotorEnable  NIL)) 

(T 

(SETQ  ResetAheadGuardingMotorEnable  T) ) ) 

0  ) 


(defun  ControlAir Init  () 

(setq  AheadGuarding  (select-ic  '(nil  nil  t  t) ) ) 

;  AheadGuarding  is  also  in  MainSteam  and  MainTurbine. 

(setq  SteamControlAheadGuarding  (select-ic  '(nil  nil  nil  nil))) 
(setq  AuxExhaustToDistilPlant  (select-ic  '(nil  t  t  t) ) ) 

(setq  MTGlandSealUnloading  (select-ic  '{nil  nil  t  t) ) ) 

(setq  MTGlandSealSupply  (select-ic  '(nil  nil  t  t) ) ) 

(setq  LOServiceUnloading  (select-ic  '(t  t  t  t) ) ) 

(setq  ControlAirOn  (select-ic  '(nil  t  t  t) ) ) ) 

(version) 


B.5  Distiller 


(version) 

(defun  DistillerRun  () 

(SETQ  Eng ineRoomSeaWa ter Temp 

(+$  30.0  (*$  55.0  SeaWaterTempInstructorKnob) ) ) 

(COND  (  (AND  FeedWaterSeaChestValve  FeedPumpMotorOn  FeedWaterPumpOutletValve) 
;  tag  4308 

(SETQ  FeedwaterStrainerFeedSuction  14.0) 

(SETQ  FeedwaterPr esToStagel  50.0) 

(SETQ  Feedwater  In letTemp  EngineRooraSeaWaterTemp) 

(SETQ  FeedwaterPumpOutletPr es  59.0)) 

(T 

(COND  ( (AND  FeedWaterSeaChestValve  FeedPumpMotorOn) 

(SETQ  FeedwaterPumpOutletPres  60.0)) 

(T 

(SETQ  FeedwaterPumpOutletPres  14.7))) 


(SETQ  Feedwater StrainerFeedSuction  14.7) 

(SETQ  FeedwaterPr esToStagel  14.7) 

(SETQ  Feedwater  In letTemp  75.0)))  ;  tag  4310 

(COND  (DistillerBr ineDischargeOn  ;  tag  4312 
(COND  (Br ineOverboardValve 

(SETQ  Br ineEductorSound  T) 

(SETQ  Br ineOverboardDischargePr es  12.2)) 

(T 

(SETQ  Br ineEductorSound  NIL) 

(SETQ  Br ineOverboardDischargePr es  40.0)))) 

(T 

(COND  (Br ineOverboardValve  (Malop  6  bit23))) 

(SETQ  Br ineEductorSound  NIL) 

(SETQ  Br ineOverboardDischargePres  14.7))) 

;  tag  4352 

(COND  {(AND  ISOlbSteamAvailable  (NULL  EBCSTM) ) 

(SETQ  AuxSteamTo  DAE  Pres  1501bSteainPr  es) 

(COND  ((NOT  FeedPumpMotorOn)  (Malop  6  bit23))) 

(COND  (StagelAESteamValve 
(SETQ  DPresInput  T) 

(SETQ  DPresResponseGain  PresRiseResponseGain) ) 

(T 

(SETQ  DPresInput  NIL) 

(SETQ  DPresResponseGain  PresDecayResponseGain) ) ) ) 
(T 

(SETQ  AuxSteamToDAEPres  ISOlbStearoPres) 

(SETQ  DPresInput  NIL) 

(SETQ  DPresResponseGain  PresDecayResponseGain))) 

;  tag  4315 

(SETQ  DPresResponseEr ror  (-$  (COND  (DPresInput  1.0)  (T  0.0)) 

DPresResponseOutput)  ) 

(SETQ  DPresResponseOutput  (+$  DPresResponseOutput 

(*$  DPresResponseGain 
DPresResponseEr  ror 
DeltaT) ) ) 

(SETQ  StagelShellPres  (-$  14.7  (*$  13.95  DPresResponseOutput))) 
(SETQ  STage2ShellPres  StagelShellPres) 

;  tag  4353,  3  on  flowchart 

(COND  ({<  AuxExhaustToDPCAPr es  20.0) 

(SETQ  AirPilotInput  NIL) 

(SETQ  3psigSteamControlValve  0.0) 

(SETQ  3tol5psigAirPilotOutputPres  0.0) 

(SETQ  DPAuxExhaustEnabled  NIL) 

(SETQ  AuxSteamToOr if icePres  14.7) 

(SETQ  DTemplnput  NIL) 

(SETQ  TempResponseGain  TempDecayResponseGain)  ) 

(T 

(SETQ  AirPilotInput  T) 

(COND  ( (AND  AuxExhaustSteamValve  AuxExhauststeamValvel 
AuxExhaustSteainValve2  AuxExhaustSteamValve3 
(OR  (>  AuxExhaustSupplyPres  3.0) 

(=  DistillerSteamGage  15.0))) 


(COND  ( (OR  (NOT  FeedPumpMotorOn) 

(>  StagelShellPres  2.45)) 

(Malop  6  bit23) ) ) 

(SETQ  3psigSteamControlValve  .25) 

(SETQ  3tol5psigAirPilotOutputPres  (+$  3.0  (*$  .25  12.0))) 
(SETQ  DPAuxExhaustEnabled  T) 

(SETQ  AiixSteamToOr  if  icePres  17.7) 

(SETQ  DTempInput  T) 

(SETQ  TempResponseGain  .02)) 

(T 

(SETQ  3psigSteamControlValve  1.0) 

(SETQ  3tol5psigAirPilotOutputPres  15.0) 

(SETQ  DPAuxExhaustEnabled  NIL) 

(SETQ  AuxSteamToOr if icePr es  14.7) 

(SETQ  DTempInput  NIL) 

(SETQ  TempResponseGain  TempDecayResponseGain)  )  )  )  ) 

;  Tag  4354  in  code,  4  in  flowchart 

;  (Well,  actually,  this  stuff  is  not  in  the  flowchart.) 

(COND  ((AND  FeedPumpMotorOn  FeedWaterPumpOutletValve 
(>  FeedWaterTerapControlValve  0.0)) 

(COND  (EBSC3F  (SETQ  EBSC3F  NIL) 

(SETQ  EBSINS3  1.5) ) 

(T  (COND  (DPresInput  (SETQ  EBSC3T  EBSCOF) ) 

(T  (SETQ  EBSC3T  EBSCNG) ) ) 

(SETQ  EBSC3C  (MAX  (-$  (*$  StagelShellPres  .1196)  .258) 

.035) ) 

(SETQ  EBSINS3  (//$  (+$  (*$  EBSINS3  EBSC3T) 

{*$  EBSC3C  DeltaT)) 

(+$  EBSC3T  DeltaT) ) ) ) ) ) 

(T  ;  tag  4319 

(SETQ  EBSC3F  T) ) ) 

(COND  ({AND  DistillatePumpMotorOn  DistillatePumpOutle tValve) 

(SETQ  EBSINS6  EBSINS3) ) ) 

(SETQ  TempResponseEtror  (-$  (COND  (DTempInput  1.0)  (T  0.0)) 

TempResponseOutput)  ) 

(SETQ  TempResponseOutput 

(  +  $  TempResponseOutput 

(*$  TempResponseGain  TempResponseEr ror  DeltaT))) 

(SETQ  DTemp3  (+$  33.5  (*$  Feedwater  In le tTemp  .3491))) 

(SETQ  DTemp4  (-$  125.0  (*$  FeedWaterTempControlValve  100.0))) 

(SETQ  DTemp5  (+$  41.0  (*$  Feedwater Inle tTemp  .317  5))) 

(SETQ  DTemp6  (-$  (*$  .6333  Feedwater InletTemp)  12.0)) 

(SETQ  DTemp7  (-$  (*$  .7895  Feedwaterlnle tTemp)  47.4)) 

(SETQ  DTemp8  (-$  (*$  .6666  Feecwater InletTemp)  19.6)) 

(SETQ  Feedwater InAfterCondenserTemp 

(  +  $  (*$  DTemp3  TempResponseOutput)  75.0)) 

(SETQ  Feedwa te r Ou t Af te r Co nde nse r Temp 

(  +  $  (*$  DTemp4  TempResponseOutput)  75.0)) 

(SETQ  StagelShellTemp  (+$  (*$  DTerap5  TempResponseOutput)  75.0)) 

(SETQ  Stage2ShellTemp  (+$  (*$  DTemp6  TempResponseOutput)  75.0)) 

(SETQ  Feedwater  In  ter  stageTemp  (+$  (*$  DTempS  TempResponseOutput)  75.0)) 
(SETQ  SteamToSWHeater  (+$  75.0  (*$  130.0  TempResponseOutput))) 


(SETQ  SWHeater ShellTemp  (+$  75.0  {*$  123.0  TempResponseOutput)  )  ) 

(SETQ  StagelShe llPr es  (+$  StagelShellPres 

(*$  2.36  TempResponseOutput))) 

(SETQ  Stage2ShellPres  (+$  Stage2ShellPres 

(*$  .8  TempResponseOutput))) 

(COND  ( (AND  SWHeaterDr ainPumpMotorOn  HeaterDr ainReg JackSpindleOpen) 
(SETQ  SWHeater Dr ainPumpSound  T) 

(SETQ  CondensateOutSWHeaterTemp  SWHeater ShellTemp) 

(SETQ  SWHeaterDrainPumpDischargePres  55.0) 

(SETQ  HeaterLevelEr ror  (-$  HeaterLevelInput  HeaterLevelOutput) ) 
(SETQ  HeaterLevelOutput  (+$  HeaterLevelOutput 

(*$  .02  HeaterLevelEr ror  DeltaT))) 
(COND  ({NULL  SWHeaterDrainPumpSealValve)  (Malop  6  bit23))) 

(COND  (CondensateSystemValve 

(SETQ  CondensateToCondensateSystem  T) 

(COND  { (OR  CondensateToBilgeValve  SteamDr ainSystemValve) 
(Malop  6  bit23) ) ) 

(SETQ  CondensateToBilge  NIL) 

(SETQ  CondensateToSteamDr ainSystem  NIL) ) 

(T 

(SETQ  CondensateToCondensateSystem  NIL) 

(SETQ  CondensateToBilge  CondensateToBilgeValve) 

(SETQ  CondensateToSteamDrainSystem  SteamDr ainSystemValve) 
(COND  ( (NOR  CondensateToBilgeValve  SteamDr ainSystemValve) 
(Malop  6  bit23)))))) 

(T 

(COND  (SWHeater Dr ainPumpMotorOn 

(SETQ  SWHeaterDr ainPumpSound  T) 

(SETQ  SWHeaterDrainPumpDischargePres  75.0)) 

(T 

(SETQ  SWHeaterDr ainPumpSound  NIL) 

(SETQ  SWHeaterDrainPumpDischargePres  14.7))) 

(SETQ  CondensateOutSWHeaterTemp  75.0) 

(COND  ((<  FeedwaterOutAf terCondenserTemp  FeedwaterOutRe fTemp) 
(SETQ  Heater LevelGa in  HeaterLevelFallGain) ) 

(T 

(SETQ  HeaterLevelGain  HeaterLevelRiseGain)  )  ) 

(SETQ  HeaterLevelOutput 

(MIN  1.0  (+$  HeaterLevelOutput 

(*$  HeaterLevelGain  DeltaT)))) 

(SETQ  CondensateToCondensateSystem  NIL) 

(SETQ  CondensateToBilge  NIL) 

(SETQ  CondensateToSteamDrainSystem  NIL))) 

(SETQ  HeaterLevelOutput  (MAX  HeaterLevelOutput  0.0)) 

;  tag  4356,  6  in  flowchart 

(COND  ((AND  DistillatePumpMotorOn  DistillatePumpOutle tValve) 

(SETQ  Di St i 11a tePumpSound  T) 

(SETQ  DistillateLevelInput  (-$  DistillateZeroPresLevel 

(*$  DistillateLevelOutputGain 
Stage2ShellPres) ) ) 

(SETQ  DistillateLevelEr ror  (-$  DistillateLevelInput 

DistillateLevelOutput) ) 


(SETQ  Distilla heLevelOutput  (+$  Distillate LevelOutput 

(*$  DistillateLevelOutputGain 
DistillateLevelEr ror 
DeltaT)  )  ) 

(COND  {(NULL  DistillatePumpSealValve)  (Malop  6  bit23))) 

(SETQ  DistillatePumpDischargePres  37.0) 

(SETQ  FinalDistillateTemp  (+$  75.0 

(*$  DTemp7  TempResponseOutput)  )  ) 

(SETQ  Distilla teAvailable  T) ) 

(T 

(COND  (Distilla tePumpMotorOn 

(SETQ  DistillatePumpSound  T) 

(SETQ  DistillatePumpDischargePres  60.0)) 

(T 

(SETQ  DistillatePumpSound  NIL) 

(SETQ  DistillatePumpDischargePres  14.7))) 

(SETQ  FinalDistillateTemp  75.0) 

(SETQ  DistillateAvailable  NIL) 

(COND  ( (>  Stage2ShellPtes  Stage2RefPr es) 

(SETQ  DistillateLevelGain  Distilla teLevelFallGain) ) 

(T 

(SETQ  DistillateLevelGain  DistillateLevelRiseGain) ) ) 

(SETQ  DistillateLevelOutput 
(FBOUNDS  0.0 

(+$  DistillateLevelOutput 

(*$  DistillateLevelGain  DeltaT)) 

1.0)))) 

(COND  ( {>  Heater LevelOutput  CondensateManometerBottomLevel) 

(SETQ  CondensateManome ter Level 

(//$  (-$  Heater LevelOutput  CondensateManometerBottomLevel) 
(-$  1.0  CondensateManometerBottomLevel)))) 

(T 

(SETQ  CondensateManome ter Level  0.0))) 

(COND  ( (>  DistillateLevelOutput  DistillateManometerBottomLevel) 

(SETQ  DistillateManometerLevel 

(//$  (-$  DistillateLevelOutput 

DistillateManometerBottomLevel) 

{-$  1.0 

DistillateManometerBottomLevel) ) ) ) 

(T 

(SETQ  DistillateManometerLevel  0.0))) 

(COND  (  (AND  CondensateToCondensateSystem 

(>  CondensateSystemLoadPres  60.0)) 

(SETQ  CondensateToCondensateSystem  NIL) 

(SETQ  SWHeaterDr ainPumpDischargePr es  75.0))) 

0  ) 


(defun  Distiller Init  () 

(setq  SteamDrainSystemValve  (select-ic  '(nil  nil  nil  nil))) 
(setq  CondensateToBi Ige Valve  (select-ic  '(nil  nil  nil  nil))) 
(setq  Condense teSystemValve  (select-ic  '(nil  t  t  t) ) ) 

(setq  Br ineOverboardValve  (select-ic  '(nil  t  t  t) ) ) 

(setq  SWHeaterDr ainPumpSealValve  (select-ic  '(nil  t  t  t)  )  ) 


(setq  DistillatePumpSealValve  (select-ic  '(nil  t  t  t) ) ) 

(setq  StagelAESteamValve  (select-ic  '(nil  t  t  t) ) ) 

(setq  DistillatePumpOutletValve  (select-ic  '(nil  t  t  t) ) ) 

(setq  FeedWaterPurapOutletValve  (select-ic  '(nil  t  t  t) ) ) 

(setq  FeedWaterSeaChestValve  (select-ic  '(nil  t  t  t) ) ) 

(setq  AuxExhaustStearaValveS  (select-ic  '(nil  t  t  t) ) ) 

(setq  AuxExhaustSteamValve2  (select-ic  '(nil  t  t  t) ) ) 

(setq  AuxExhaustSteamValvel  (select-ic  '(nil  t  t  t) ) ) 

(setq  AuxExhaustSteamValve  (select-ic  '(nil  t  t  t) ) ) 

(setq  HeaterDrainRegJackSpindleOpen  (select-ic  '(nil  t  t  t)  ) ) 
(setq  FeedWaterTempControlValve  (select-ic  '(0.0  1.0  1.0  1.0))) 
(setq  SeaWaterTempInstructorKnob 

(select-ic  '(0.8181  0.8181  0.8181  0.8181))) 

(SETQ  Stage2ShellPres  0.0) 

(SETQ  StagelShellPres  0.0) 

(SETQ  DPresResponseOutput  0.0) 

(SETQ  TempResponse Output  0.0) 

(SETQ  DistillateLevelOutput  0.0) 

(SETQ  HeaterLevelOutput  0.0) 

(SETQ  EBSINS3  0.0) 

(SETQ  EBSC3F  NIL) 

(SETQ  EBSCNG  0.0) 

(SETQ  EBCSTM  NIL)  j  Unknown  variable 

;;  Model  Constants 

(SETQ  PresDecayResponseGain  .0025) 

(SETQ  PtesRiseResponseGain  .01) 

(SETQ  EBMC15  .25) 

(SETQ  TempRiseResponseGain  .02) 

(SETQ  TempDecayResponseGain  .01) 

(SETQ  EBMC31  12.2) 

(SETQ  HeaterLevelRiseGain  ,005) 

(SETQ  HeaterLevelFallGain  -.0025) 

(SETQ  He a ter Level Input  .75) 

(SETQ  CondensateManometerBottoraLevel  .5) 

(SETQ  Stage2RefPres  7.0) 

(SETQ  DistillateLevelRiseGain  .004) 

(SETQ  DistillateLevelFallGain  -.002) 

(SETQ  DistillateZeroPresLevel  1.0) 

(SETQ  DistillateManometerBottomLevel  .4) 

(SETQ  FeedwaterOutRefTemp  125.0) 

(SETQ  CondensateLevelGain  .02) 

(SETQ  DistillateLevelInputGain  .1) 

(SETQ  DistillateLevelOutputGain  .01) 

(SETQ  EBMC30  14.0) 

0  ) 


(defun  DistillerStatus  () 

(StatusPrint  Distiller StatusVars)  ) 

(setq  DistillerStatusVars 

' (EngineRoomSeaWaterTemp  FinalDistillateTemp 


StagelShellPres  StagelShe llTemp  Stage2ShellPres  Stage2ShellTemp 
Co  ndensateMa  nometer  Level  DistillateManometerLevel)  ) 


B . 6  DPumps 


(defun  DPumpsRun  () 

(COND  (  (OR  (NOT  FeedPumpPower On)  FeedPumpStop) 

(SETQ  FeedPumpMotorOn  NIL)) 

(Feedpumps tart 
(SETQ  FeedPumpMotorOn  T) ) ) 

(COND  ( (OR  (NOT  DistillatePumpPowerOn)  DistillatePumpStop) 

(SETQ  DistillatePumpMotorOn  NIL)) 

(DistillatePumpStar t 
(SETQ  DistillatePumpMotorOn  T) ) ) 

(COND  ( (OR  (NOT  SWBeater Dr ainPumpPowerOn)  SWHeaterDr ainPumpStop) 
(SETQ  SWHeaterDr ainPumpMotorOn  NIL) ) 
(SWHeaterDrainPumpStart 
(SETQ  SWHeaterDr ainPumpMotorOn  T) ) ) 

0) 


(defun  DPumpsInit  () 

(setq  SWHeaterDrainPumpStart  (select-ic  "(nil  nil  nil  nil))) 
(setq  SWHeaterDr a in Pumps top  (select-ic  "(nil  nil  nil  nil))) 
(setq  DistillatePumpStart  (select-ic  "(nil  nil  nil  nil))) 
(setq  DistillatePumpStop  (select-ic  "(nil  nil  nil  nil))) 
(setq  FeedPumpStar t  (select-ic  "(nil  nil  nil  nil))) 

(setq  FeedPumpStop  (select-ic  "(nil  nil  nil  nil))) 

(SETQ  FeedPumpPowerOn  NIL) 

(SETQ  FeedPumpMotorOn  NIL) 

(SETQ  DistillatePumpPowerOn  NIL) 

(SETQ  DistillatePumpMotorOn  NIL) 

(SETQ  SWHeaterDrainPumpPowerOn  NIL) 

(SETQ  SWHeaterDrainPumpMotorOn  NIL)) 

(defun  TurnOff DPumps  () 

(SETQ  DistillatePumpStop  T) 

(SETQ  DistillatePumpStart  NIL) 

(SETQ  FeedPumpStop  T) 

(SETQ  FeedPumpStart  NIL) 

(SETQ  SWHeaterDrainPumpStop  T) 

(SETQ  SWHeaterDrainPumpStart  NIL)) 

(defun  TurnOnDPumps  () 

(SETQ  DistillatePumpStop  NIL) 

(SETQ  DistillatePumpStart  T) 

(SETQ  FeedPumpStop  NIL) 

(SETQ  FeedPumpStart  T) 

(SETQ  SWHeaterDrainPumpStop  NIL) 

(SETQ  SWHeaterDrainPumpStart  T) ) 


{defun  DPumpsStatus  () 

(statusprint  DPumpsStatusVars)  ) 

(setq  DPumpsStatusVars  " (DistillatePumpMotorOn 

FeedPumpMotorOn 
SWHeaterDr ainPumpMotorOn) ) 

(version) 


B.7  Electric 


(declare  (unspecial  d)  (flonum  d) ) 

(defun  ElectDistRun  () 

(PROG  (d)  ;  EELD4 

(SETQ  CondPumplAPowerOn  T) 

(SETQ  CondPumplBPowerOn  T) 

(SETQ  LOPumpsPowerOn  T) 

(SETQ  d  (+$  (*$  26.0  (FSUM-VARS  CondPumplAPowerOn 

CondPumplBPowerOn) ) 

(*$  51.7  (FSUM-VARS  (LOPumpHighIndicator  1) 

(LOPumpHighlndicator  2))) 

(*$  34.8  (FSUM-VARS  (LOPumpLowIndicator  1) 

(LOPumpLowIndicator  2))) 

(COND  ((NOT  LightingEnable)  (EELD  3)) 

(T  0.0)) 

68.0) ) 

(store  (EELDN  4)  d) 

(store  (EELDA  4)  0.0) 

(store  (EELD  1)  (COND  (FirePump3MotocOn  50.0) 

(T  0.0))) 

(store  (EELD  3)  (COND  (CircPumpHighSpeedIndicator  60.0) 

(CircPumpLowSpeedIndicator  30.0) 

(T  0.0))) 

(for  i  from  1  to  3 

do  (store  (Power EnableAft  i) 

(COND  (  (AftDevices  i)  NIL)  ;  T  =  closed 

(T  (Af tLamps  i) ) ) ) 

(store  (PowerEnableCentral  i) 

(COND  ( (CentralDevices  i)  NIL) 

(T  (CentralLamps  i) ) ) ) 

(store  (EELDN  i) 

(COND  (  (PowerEnableCentral  i)  (EELD  i) ) 

(T  0.0))) 

(store  (EELDA  i) 

(COND  ( (Power Enable Aft  i)  (EELD  i) ) 

(T  0.0))) 

finally  (SETQ  AuralCueEnableVentFans  (OR  (PowerEnableCentral  2) 

(PowerEnableAf t  2)))) 


(SETQ  FirePiimpBpowetOn  (OR  (PowerEnableCentr al  1) 

(Power Enable Aft  1))) 

(SETQ  CiccPumpPowerOn  (OR  (Power EnableCentral  3) 

(PowerEnableAf t  3))) 

(SETQ  FeedPumpPowerOn  T)  ;  distiller 

(SETQ  DistillatePumpPowerOn  T) 

(SETQ  SWHeater Dr ainPumpPowerOn  T)  ;  distiller 
(SETQ  LOPur if ierPowerOn  T) 

(SETQ  JMPowerOn  T) 

(store  (EELDN  5) 

(+$  (COND  (FeedPumpMotorOn  12.7)  ;  distiller 

(T  0.0)) 

(COND  (DistillatePumpMotorOn  3.85) 

(T  0.0) ) 

(COND  (SWHeaterDr a inPumpMotorOn  7.0)  ;  distiller 

(T  0.0) ) 

(COND  (LOPur if ierMotorOn  2.5) 

(T  0.0)  ) 

(COND  ((NULL  JackingMotorStatus)  0.0) 

(T  5.0)))) 

(SETQ  TotalLoadCentral  (for  i  from  1  to  5  sum  (EELDN  i))) 

(SETQ  TotalLoadAft  (for  i  from  1  to  4  sum  (EELDA  i))))) 


(defun  ElectDistInit  () 

;  These  variables  have  arrays  as  their  values. 

(FILLARRAY  EELD  '(0.0)) 

(FILLARRAY  EELDN  '(0.0)) 

(FILLARRAY  EELDA  '(0.0)) 

(FILLARRAY  CentralDevices  '(())) 

(FILLARRAY  AftDevices  ' (T) ) 

;  (setq  CentralDevices  (select-ic  '(nil  nil  nil  nil))) 

;  (setq  AftDevices  (select-ic  '{t  t  t  t)  ) ) 

(FILLARRAY  AftLamps  '(())) 

(FILLARRAY  CentralLamps  '(())) 

(FILLARRAY  Power Enable Aft  '(())) 

(FILLARRAY  Power EnableCentral  '(())) 

(store  (EELD  2)  20.0)  ;  model  constant  (amps) 

(SETQ  TotalLoadAft  0.0) 

(SETQ  TotalLoadCentral  0.0) 

(SETQ  LightingEnable  NIL) 

{)) 

(defun  TurnOnElectDist  () 

(for  i  from  1  to  3  do  (store  (AftLamps  i)  T) 

(store  (CentralLamps  i)  T) ) ) 

(defun  ElectDistStatus  () 

(statusprint  ElectDistStatusVar s) ) 

(setq  ElectDistStatusVars 

'  (TotalLoadCentral  TotalLoadAft) ) 


(version) 


B.8  FireMain 


(declare  (unspecial  a)  (flonum  a)  ) 


(defun  FireMainRun  () 

(PROG  (a) 

(SETQ  MainHeader Available  T) 

;  It  remains  to  be  seen  what  parts  of  this  are  relevant. 

(WPUMP  FirePumpSOn  1  EWP3SV  FirePuinp3Header 

FirePump3DischargeGage  FirePump3SuctionGage 
FirePump3control  FirePump3Controll  FirePuinp3Control2 
FirePuinp3Power0n  MainHeader  Available) 

(COND  ( (OR  MainHeader Available 

(NOT  (=  FirePump3Header  0.0))) 

(SETQ  AuxSWCoolingHeaderOn 

FireMainToAuxSWCooling) 

(SETQ  Eme rgencyCondenserSupplyHeaderOn 
MainCondenserCoolingValve) 

(SETQ  DistillerBr ineDischargeOn 

FireMainToDistillerBr ineEductors) 

(COND  (DistillerBr ineDischargeOn 

(SETQ  DistillerBr ineOverboardGage  125.0)) 

(T 

(SETQ  DistillerBr ineOverboardGage  0.0))) 

(SETQ  a  0.0) 

(COND  (AuxSWCoolingHeaderOn  (SETQ  a  (+$  a  1.0)))) 

(COND  (EraergencyCondenserSupplyHeaderOn  (SETQ  a  (+$  a  1.0)))) 
(COND  (MainHeader Available 

(COND  (EmergencyCoolingDieseLGenOn  (SETQ  a  (+$  a  1.0)))) 
(COND  (AuxMachSWCoolingOn  (SETQ  a  (+$  a  1.0)))))) 

(SETQ  FireMainPres  (-$  125.0  a))) 


(SETQ 

(COND 

(COND 

(COND 


(SETQ  AuxSWCoolingHeaderOn  NIL) 

(SETQ  EmergencyCondenser SupplyHeaderOn  NIL) 
(SETQ  DistillerBr ineDischargeOn  NIL) 

(SETQ  DistillerBr ineOverboardGage  0.0) 

(SETQ  FireMainPres  0,0))))) 


(defun  FireMainInit  () 

(setq  FireMainHoseAdaptorValve  (select-ic  '(nil  nil  nil  nil))) 

(setq  FireMainStopValve3  (select-ic  '(nil  nil  nil  nil))) 

(setq  FireMa inStopValve2  (select-ic  '(nil  nil  nix  nil))) 

(setq  FireMa inStopValvel  (select-ic  '(nil  nil  nil  nil))) 

(setq  FirePump3Control2  (select-ic  '(nil  nil  nil  nil))) 

(setq  FirePump3Controll  (select-ic  '(nil  nil  nil  nil))) 

(setq  FirePump3Control  (select-ic  '(nil  nil  nil  nil))) 

(setq  FirePump3SuctionValve  (select-ic  '(nil  t  t  t) ) ) 

(setq  FireMainToAuxSWCooling  (select-ic  '(nil  t  t  t) ) ) 


(setq  FireMainToDistillecBr  ineEductors  (select-ic  ''(nil  t  t)  )  ) 
(setq  MainCondenserCoolingValve  (select-ic  '(nil  t  t  t) ) ) 

(SETQ  AuxMachSWCoolingOn  NIL) 

(SETQ  EmergencyCoolingDie se IGenOn  NIL) 

(SETQ  DistillerBr ineDischargeOn  NIL) 

(SETQ  Ma inHeader Available  NIL) 

(SETQ  EWP3SV  0.0) 

(SETQ  FirePump3Header  0.0) 

(SETQ  FirePumpSDischargeGage  0.0) 

(SETQ  FirePunip3SuctionGage  0.0) 

(SETQ  FirePump3PowerOn  NIL) 

(SETQ  FirePump3MotorOn  NIL) 

0  ) 

;;;  Supposedly  defined  somewhere  as  a  generic  water  pump  model, 
(defun  WPUMP  fexpr  (x)  x) 

(version) 


B.9  JackingMotor 


(declare  (unspecial  temp)  (flonum  temp)) 

(defun  JackingMotor Run  () 

(PROG  (temp) 

(COND  ((OR  (NOT  JMPowerOn)  JMStop//Reset) 

(COND  (JMStop//Reset  (SETQ  JMRelayFlag  NIL))) 

(SETQ  JackingMotorStatus  NIL)) 

((NULL  JackingMotorStatus) 

(COND  (JMStartForward 

(COND  ((NULL  JMRelayFlag) 

(SETQ  JackingMotorStatus  'Forward)))) 

(JMStartRever se 
(COND  ((NULL  JMRelayFlag) 

(SETQ  JackingMotorStatus  'Reverse))))))) 

;  At  A  in  flowchart,  tag  4510  +  1 
(COND  ( (AND  CasualtyInstructorRumble 

(NOT  (=  ShaftRotationRPM  0.0)) 

(NOT  (=  EKJNM  0.0) ) ) 

(SETQ  RumbleSignalAuralCue 
(FBOUNDS  0.0 

(+$  JMRumbleCurveIntercept 

(*$  jMRumbleCurveSlope  (ABS  ShaftRotationRPM))) 

10.0)) ) 

(T 

(SETQ  RumbleSignalAuralCue  0.0))) 

;  tag  4526,  B  in  flowchart 
(COND  (JMEngage 

(COND  ( (NULL  JMFir stEngageFlag) 


(COND  ((NOT  (AND  (<  (ABS  Shaf tRotationRPM)  EKR) 

(NULL  Jack ingMotorStatus) ) ) 

(SETQ  FteezeFlag  3) 

(FREEZE  2  1)) 

(T 

(SETQ  JMFir stEngageFlag  T) ) ) ) ) 

(COND  (JMBrake 

(COND  ( JackingMotorStatus 

(SETQ  JackingMotorStatus  NIL) 

(SETQ  JMRelayFlag  T) ) 

(T 

(SETQ  RotationOf Shaft 

(//$  (*$  EK2TAU  ShaftRotationRPM) 

(+$  EK2TAU  DeltaT))) 

(SETQ  ShaftRotationRPM  RotationOf Shaf t) 

(SETQ  ShaftRotation  (//$  ShaftRotationRPM  60.0))))) 
(T 

(SETQ  temp 

(+$  ShaftRotationRPM 

(COND  (  (EQ  JackingMotorStatus  '“Forward)  1.0) 

( (EQ  JackingMotorStatus  ^Reverse)  -1.0) 

(T  0.0)))) 

(SETQ  RotationOfShaft 

(//$  (+$  (*$  JMTC  RotationOfShaft) 

(*$  DeltaT  temp)) 

(+$  JMTC  DeltaT) ) ) ) ) ) 

(T  ;  Jacking  motor  not  engaged 

(SETQ  RotationOfShaft  ShaftRotationRPM) 

(SETQ  JMFir StEngageFlag  NIL) 

(COND  (JMBrake  (COND  (JackingMotorStatus 

(SETQ  JackingMotorStatus  NIL) 

(SETQ  JMRelayFlag  T) ) ) ) 

(JackingMotorStatus  (Malop  blank))))) 

;  C  in  flowchart,  tag  4553 
(COND  (ISOlbSteamEnable 

(COND  ( (=  RotationOfShaft  0.0) 

(SETQ  JMLapsedTC  (+$  JMLapsedTC  DeltaT)) 

(COND  ((NOT  (<  JMLapsedTC  180.0)) 

(SETQ  CasualtyInstructorRumble  3.0)))) 

(T 

(COND  ((<  LOTemp  90.0)  (Malop  12  bit23))) 

(SETQ  JMLapsedTC  0.0)))) 

(T 

(SETQ  JMLapsedTC  0.0))) 

; ;  At  F  in  flowchart,  tag  4560 

(SETQ  JackingGearForward  (EQ  JackingMotorStatus  'Forward) ) 

(SETQ  Jack ingGear Reverse  (EQ  JackingMotorStatus  'Reverse)) 

(SETQ  Ma inShaftNormalizedRPM  (//$  (ABS  RotationOfShaft)  240.0)))) 


(de  fun  Jack ingMotor In  it  () 

(setq  JMStartRever se  (select-ic  '(nil  nil  nil  nil))) 
(setq  JMStar tForward  (select-ic  '(nil  nil  nil  nil))) 
(setq  JMStop//Reset  (select-ic  '(nil  nil  nil  nil))) 


(setq  JMBrake  (select-ic  '(nil  nil  nil  nil))) 
(setq  JMEngage  (select-ic  '(nil  nil  nil  nil))) 


(SETQ  JMRelayFlag  NIL) 

(SETQ  JMPowerOn  NIL) 

(SETQ  CasualtyInstructorRumble  NIL) 

(SETQ  Jack ingMotor Status  NIL) 

(setq  JMLapsedTC  0.0) 

;;  Model  Constants 
(SETQ  JMTC  8.0) 

(SETQ  JMRumbleCurveSlope  .1) 

(SETQ  JMRumbleCurveIntercept  -5.0) 

(SETQ  EK2TAU  2.0) 

(SETQ  EKR  .05) 

0  ) 

(defun  Turnoff Jack ingMotor  () 

(SETQ  JMStop//Reset  T) 

(SETQ  JMStartForward  NIL)) 

(defun  TurnOn Jack ingMotor  () 

(SETQ  JMStop//Reset  NIL) 

(SETQ  JMStartForward  T) ) 

(defun  JackingMotorStatus  () 

(StatusPr int  Jack ingMotor StatusVars) ) 

(setq  JackingMotorStatusVars 

'(JackingMotorStatus  JMBrake  JMRelayFlag  ShaftRotation) ) 

(version) 


B.IO  LOPres 


(version) 

(declare  (unspecial  abcdefpv  temp)  (flonum  abcdefpv  temp) ) 

(defun  LOPresRun  () 

(PROG  (abcdefpv  temp) 

(COND  ((NOT  (=  XMODE2  0))  ;  Whatever  this  means  -  Accelerated  Mode 

(SETQ  p  AccelModeS) 

(SETQ  V  AccelMode2) 

(SETQ  f  AccelModel)) 

(T 

(SETQ  p  LOTurbinelnletPresFlowTC) 

(SETQ  V  LOUnloadingValvePlowTC) 

(SETQ  f  LOServicePumpFlowTC) ) ) 

(COND  ( (>  LOSystemCapacity  LowSump Level) 

(SETQ  a  (+$  (*$  .334  (-$  MainSumpOilTemp  40.0))  220.0)) 
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(for  i  from  1  to  2 

do  (SETQ  temp  (COND  { (LOPumpHighIndicator  i) 

(COND  ( (LOPumpLowIndicator  i)  3.0) 

(T  2.0))) 

{{LOPumpLowIndicator  i)  1.0) 

{T  0.0))) 

{store  {LOServicePumpFlowCommand  i) 

{//$  {+$  {*$  {LOServicePumpFlowCommand  i)  f) 

{*$  temp  DeltaT) ) 

{+$  f  DeltaT))) 

{store  (LOPumpFlow  i) 

{*$  a  {LOServicePumpFlowCommand  i) ) ) ) 

{COND  {CasualtyAttachedPumpFail 

{SETQ  AttachedLOPumpFlow  0.0)) 

{T 

{SETQ  AttachedLOPumpFlow 

{MAX  0.0  {*$  ShaftRotationRPM 

(+$  (*$  .00316  {-$  MainSumpOilTemp 

40.0) ) 

1.833))))))) 

(T 

{store  {LOPumpFlow  1)  0.0) 

{store  {LOPumpFlow  2)  0.0) 

(SETQ  AttachedLOPumpFlow  0.0))) 

;  tag  4602 

(SETQ  TotalLOPumpFlow  {+$  AttachedLOPumpFlow 

(LOPumpFlow  1) 

(LOPumpFlow  2))) 

(COND  {{<  TotalLOPumpFlow  25.0) 

(SETQ  CasualtyLOCoolerFailure  NIL) ) 

(T 

(SETQ  CasualtyLOCoolerFailure  (AND  LOHeaterValvel 

LOHeaterValve2 
LOHeaterValvel) ) ) ) 

(SETQ  ControlAirLinedUp  (=  LOServiceUnloadingValve  20.0)) 

(SETQ  SupplyAirV595  ControlAirLinedUp) 

(SETQ  LOTerapCoeff  {+$  {*$  .00263  MainSumpOilTemp)  .316)) 

(COND  ( (OR  (NOT  ControlAirLinedUp)  CasualtyUnloadingValveStuckShut) 

;  tag  4603 

(SETQ  IndicatorV595  (COND  (CasualtyUnloadingValveStuckShut  1.0) 

(T  0.0))) 

(SETQ  OutputAirV595  0.0)) 

(T 

(COND  {{<  LOPres  16.0)  (SETQ  temp  0.0)) 

{{>  LOPres  22.0)  (SETQ  temp  1.0)) 

(T  (SETQ  temp  {*$  .1667  {-$  LOPres  16.0))))) 

;  tag  4604 

(SETQ  IndicatorV595  {//$  {+$  {*$  IndicatorV595  v) 

(*$  temp  DeltaT) ) 

{+$  V  DeltaT)  )  ) 

(SETQ  OutputAirV595  {+$  {*$  12.0  IndicatorV595 )  3.0)) 

(COND  (CasualtyUnloadingValveStuckOpen 
(SETQ  IndicatorV595  1.0))))) 


;  tag  4605 


(COND  ( (AND  LOSe rv iceMode 

(NOT  CasualtyUnload ingValveStuckOpen) ) 

(SETQ  UnloadingValveFlowCoeff  Serv iceManualModeLi f t) ) 

(T 

(SETQ  UnloadingValveFlowCoeff  IndicatorV595) ) ) 

(SETQ  Un load ingVa lveF//PDr opCoe f f 

(*$  UnloadingValveCoef f  LOTempCoeff  UnloadingValveFlowCoeff) ) 
(COND  ( (>  TotalOilHeaderFlow  0.0) 

(COND  (  (AND  (NOT  St r a iner Lock ingLugsOnFi Iter ) 

Strainer  Lock ingLugsOnFi Iter 2 
(NULL  StrainerVentValve2 )  ) 

;  ignoring  a  malop  here 
(SETQ  FreezeFlag  1) 

(FREEZE  21)))))  ;  3  in  flowchart 

(COND  (StrainerFlag 

(COND  (StrainerShif tingLever2  (SETQ  StrainerFlag  NIL) 

(SETQ  CasualtyCloggedStrainer  NIL) 
(SETQ  ELCLOP  NIL) ) ) ) 

((NULL  StrainerShif tingLeverl)  (SETQ  StrainerFlag  T) 

(SETQ  CasualtyCloggedStrainer  NIL) 
(SETQ  ELCLOP  NIL)))  ;  at  4610 
(COND  (CasualtyUnloadingValveStuckShut 
(SETQ  ELCDT  (+$  ELCDT  DeltaT)) 

(COND  ((AND  (>  ELCDT  600.0) 

(OR  LOServiceMode 

(=  ServiceManualModeLif t  0.0))) 

(SETQ  FreezeFlag  2) 

(FREEZE  2  1)))) 

(T 

(SETQ  ELCDT  0.0)))  ;  at  4614 

(COND  (ELCLOP 

(SETQ  StrainerF//PDCoef f  30.0)) 

(CasualtyCloggedStrainer 

(SETQ  StrainerF//PDCoeff  StrainerCasualtyConstant) ) 

(T 

(SETQ  StrainerF//PDCoef f  Strainer Constant) ) ) 

;  at  4623 

(SETQ  StrainerF//PDCoef f  (*$  StrainerF//PDCoef f  LOTempCoeff) ) 

(SETQ  EmetgencyWarmUpF//PDropCoef f 

(*$  EmergencyWarmupConstant  LOTempCoeff  ELEMS)) 

(SETQ  Cooler F//PDCoeff  (*$  CoolerConstant  LOTempCoeff) ) 

(COND  (CasualtyLOCooler Leak 

(SETQ  CoolerLeakF//PDCoef f  (*$  CoolerCasualtyLeakConstant 

LOTempCoeff) ) ) 

(T 

(SETQ  CoolerLeakF/ZPDCoeff  0.0))) 

(SETQ  Bear ingsF//PDCoef f  (*$  TotalBear ingF//PConstant  LOTempCoeff)) 
(SETQ  a  (+$  Bear ingsF//PDCoef f  CooletLeakF//PDCoef f ) ) 

(SETQ  b  (//$  (*$  CoolerF/ZPDCoeff  a) 

(SORT  (+$  (**$  CoolerPZZPDCoeff) 

(**$  a) )))) 

(SETQ  c  (ZZ$  (*$  StrainerPZZPDCoeff  b) 

(+$  (**$  StrainerPZZPDCoeff) 

(**$  b)))) 


(SETQ  d  (+$  UnloadingValveF//PDropCoef f 

EmergencyWarmupF//PDropCoef f  c) ) 

(SETQ  e  (//$  TotalLOPumpFlow  d) ) 

(SETQ  Strainer InletPres  (**$  e)  ) 

(COND  ((OR  (>  Strainer InletPres  62.0) 

(AND  (>  Strainer InletPres  59.0)  ReliefValveOn) ) 

(SETQ  e  7 .681) 

(SETQ  ReliefValveToSumpFlow  (-$  TotalLOPumpFlow  (*$  e  d)  ) ) 

(SETQ  Strainer InletPres  59.0) 

(SETQ  ReliefValveOn  T)  ) 

(T 

(SETQ  ReliefValveToSumpFlow  0.0) 

(SETQ  ReliefValveOn  NIL)))  ;  at  4621 
(SETQ  UnloadingValveToSumpFlow  (*$  UnloadingValveF//PDr opCoef f  e)  ) 

(SETQ  EmergencyWarmUpFlow  (*$  EmergencyWarmupF//PDropCoef f  e) ) 

(SETQ  TotalOilHeaderFlow  (-$  TotalLOPumpFlow 

UnloadingVa IveToSumpFlow 
EmergencyWarmupFlow 
ReliefValveToSumpFlow) ) 

(SETQ  temp  (**$  TotalOilHeaderFlow)  ) 

(SETQ  LOCooler InletPres  (-$  Strainer InletPres 

(//$  temp  (**$  StrainerF//PDCoeff)  ) ) ) 

(SETQ  ReductionGearFWDHeader Pres 

(MAX  0.0  (-$  LOCooler InletPres 

(//$  temp  (**$  CoolerF//PDCoeff ) ) ) ) ) 

(SETQ  CoolerCasualtyLostLubeFlow  (*$  CoolerLea)<F//PDCoef f 

(SQRT  ReductionGearFWDHeaderPres) ) ) 
(SETQ  temp  (*$  PtesRatioLPTUrbinelnlet  ReductionGearFWDHeaderPres)  ) 

(SETQ  LOPres  (//$  (+$  (*$  LOPres  p) 

(*$  temp  DeltaT)) 

(  +  $  p  DeltaT) ) ) 

(SETQ  AttachedPumpSuctionFZ/PDCoef f  (*$  617.1  LOTempCoeff) ) 

(SETQ  AttachedPumpDischargeF//PDCoef f  (*$  184.4  LOTempCoeff)) 

(SETQ  ElectPumpSuctionF//PDCoef f  (*$  385.8  LOTempCoeff)) 

(SETQ  AttachedPUmpSuctionPres 

(-$  (**$  (//$  AttachedLOPumpFlow 

AttachedPumpSuctionF//PDCoef f ) ) ) ) 

(COND  ( (>  AttachedLOPumpFlow  10.0) 

(SETQ  AttachedPumpDischargePres 
(+$  Strainer InletPres 

(**$  (//$  AttachedLOPumpFlow 

AttachedPumpDischargeF//PDCoef f ) ) ) ) ) 

(T 

(SETQ  AttachedPumpDischargePres  0.0))) 

(for  i  from  1  to  2 

do  (COND  ((<  (LOPumpFlow  i)  .0001) 

(store  (LOPumpFlow  i)  0.0))) 

(store  (LOPumpSuctionPres  i) 

(-$  (**$  (//$  (LOPumpFlow  i) 

ElectPumpSuctionP//PDCoef f ) ) ) ) 

(store  (LOPumpDischargePres  i) 

(+$  Strainer InletPres 

(**$  (//$  (LOPumpFlow  i) 

ElectPurapDischargeF//PDCoef f ) ) ) ) ) 


(COND  {  (>  Strainer  In le tPc e s  7.0)  (SETQ  LOLowPr esAlarm  NIL)) 

(T  (SETQ  LOLowPr esAlarm  T) ) ) 

(SETQ  LOSystemCapacity 
(MAX  LowSumpLevel 

(-$  LOSystemCapacity 

(*$  .01667  CoolerCasualtyLostLubeFlow  DeltaT)))) 
(COND  { (<  TotalOilHeaderFlow  25.0) 

(SETQ  LOFlowInReductionGear  NIL) 

(SETQ  LOFlowInLPTurbine  NIL) 

(SETQ  LOFlowInHPTurbine  NIL)) 

(T 

(SETQ  LOFlowInReductionGear  T) 

(SETQ  LOFlowInLPTurbine  T) 

(SETQ  LOFlowInHPTurbine  T) ) ) ) ) 


(defun  LOPresInit  () 

(setq  LOServiceMode  (select-ic  "(nil  nil  nil  nil))) 

(setq  ServiceManualModeLif t  (select-ic  "(0.0  0.0  0.0  0.0))) 

(setq  LOHeaterValveS  (select-ic  "(nil  nil  nil  nil))) 

(setq  LOHeaterValve2  (select-ic  "(nil  nil  nil  nil))) 

(setq  LOHeaterValvel  (select-ic  "(nil  nil  nil  nil))) 

(setq  StrainerDrainValveS  (select-ic  "(nil  nil  nil  nil))) 

(setq  Stra inerDr ainValve2  (select-ic  "(nil  nil  nil  nil))) 

(setq  StrainerDrainValvel  (select-ic  "(nil  nil  nil  nil))) 

(setq  StrainerLockingLugsOnFilter  (select-ic  "(nil  nil  nil  nil))) 
(setq  Strainer LockingLugsOnFilter2  (select-ic  "(nil  nil  nil  nil))) 
(setq  StrainerShiftingLever2  (select-ic  "(nil  nil  nil  nil))) 

(setq  Stra inerSh if t ingLever 1  (select-ic  "(t  t  t  t) ) ) 

(setq  Stra iner Jack ingScrewsOnCap  (select-ic  "(nil  nil  nil  nil))) 
(setq  StrainerVentValve2  (select-ic  "(nil  nil  nil  nil))) 

(setq  StrainerVentValvel  (select-ic  "(nil  nil  nil  nil))) 

(setq  StrainerTrapDoorOpens  (select-ic  "(nil  nil  nil  nil))) 

(SETQ  CasualtyAttachedPumpFail  NIL) 

(SETQ  CasualtyUnloadingValveStuckOpen  NIL) 

(SETQ  CasualtyUnloadingValveStuckShut  NIL) 

(SETQ  CasualtyLOCoolerFailure  NIL) 

(SETQ  CasualtyLOCooler Leak  NIL) 

(SETQ  CasualtyCloggedStrainer  NIL) 

(SETQ  ELCLOP  T)  ;  ELCLOP  is  a  first  pass  flag 

;  ReliefValve  turns  on  when  the  pressure  is  above  62,  and  off  at  59 
(SETQ  ReliefValveOn  NIL) 

(SETQ  TotalOilHeaderFlow  0.0) 

(SETQ  LOServiceUnloadingValve  20.0) 

(SETQ  IndicatorV595  0.0) 

;  Model  Constants 

(SETQ  XMODE2  0)  ;  Accelerated  Mode  off? 

(SETQ  LOServicePumpFlowTC  2.5) 

(SETQ  LOUnloadingValveFlowTC  1.5) 

(SETQ  LOTurbinelnletPresFlowTC  2,0) 
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(SETQ  EmergencyWarmupConstant  5,0) 

(SETQ  StrainerFlag  NIL) 

(SETQ  ElectPumpDi sc;hargeF//PDCoef f  0.0) 

(SETQ  ElectPumpSuctionF//PDCoef f  0.0) 

(SETQ  LOPres  0.0) 

(SETQ  EmergencyWarmupFlow  0.0) 

(SETQ  StrainerF//PDCoeff  0.0) 

(SETQ  ELEMS  1.0)  ;  God  knows  what  this  is 

(SETQ  StrainerCasualtyConstant  130.0) 

(SETQ  StrainerConstant  300.0) 

(SETQ  CoolerConstant  246.0) 

(SETQ  CoolerCasualtyLeakConstant  50.0) 

(SETQ  LowSumpLevel  350.0) 

(SETQ  AccelModel  16.0) 

(SETQ  AccelMode2  16.0) 

(SETQ  AccelModeS  16.0) 

(SETQ  PresRatioLPTurbinelnlet  .9648) 

(SETQ  TotalBear ingF//PConstant  80.269) 

;  Two  variables  whose  initial  values  may  well  be  dicy. , . 

(SETQ  UnloadingValveCoeff  50.6) 

(SETQ  LOSystemCapacity  1200.0)  ;  gallons  (OK,  says  the  Chief) 

(FILLARRAY  LOPumpSuctionPres  '(0.0)) 

(FILLARRAY  LOServicePumpFlowCommand  '(0.0)) 

(FILLARRAY  LOPumpFlow  '(0.0)) 

(FILLARRAY  LOPumpDischargePtes  '(0.0)) 

0  ) 

(defun  LOPresStatus  () 

(Statusprint  LOPi esStatusVars) ) 

(setq  LOPr esStatusVars 

'(LOPres  IndicatorV595  LOLowPresAlarm  TotalOi IHeaderFlow 
LOSystemCapacity  CasualtyLOCoolerFailure) ) 

(version) 


B.ll  LOPump 


(version) 

(defun  LOPump Run  () 

(PROG  0 

(COND  ( (NOT  LOPurapsPowerOn) 

(for  i  from  1  to  2 

do  (store  (LOPumpLowIndicator  i)  NIL) 

(store  (LOPumpHighindicator  i)  NIL) 

(store  (LOPumpOn  i)  NIL) 

(store  (LOPumpHi//Low  i)  NIL)) 

(GO  Serv icePur if ier ) ) ) 

(COND  ( (EQ  Remote //LocalSe lect  'Local)  (GO  ManagePumps) ) 
;  "IE"  is  Emergency,  "J"  is  Standby. 


(StandbyZ/Emergency  (SETQ  Emergency  1) 

(SETQ  Standby  2)) 

(T  (SETQ  Emergency  2) 

{SETQ  Standby  1))) 

(COND  ( (OR  (EQ  ManualZ/AutoSelect  ^Manual) 

(>  LOPres  14.0)) 

(GO  ManagePumps) ) )  ;  tag  4410  +  3 

(COND  ((OR  (>  LOPres  13.0) 

(AND  (NOT  (NCHighStart  Emergency) ) 

(NOT  (>  (+$  1.0  PresCounter3 )  CounterLimit3 ) ) ) ) 
(COND  ( (>  LOPres  13.0)  (SETQ  PresCounter3  0.0)) 

(T  (SETQ  PresCounter3  {+$  PresCounter3  1.0)) 

(store  (LOPumpLowTndicator  Emergency)  T) 

(store  (NCLowStart  Emergency)  T) ) ) ) 

(T 

(COND  ((NCHighStart  Emergency)  (SETQ  PresCounter3  0.0)) 

(T  (SETQ  PresCounter3  Counter Limit3 )) ) 

;  tag  7003 

(store  (LOPumpLowIndicator  Emergency)  NIL) 

(store  (LOPumpHighIndicator  Emergency)  T) 

(store  (NCLowStart  Emergency)  NIL) 

(store  (NCHighStart  Emergency)  T) 

(COND  ((OR  (>  LOPres  11.0) 

(<  (+$  PresCounter2  1.0)  CounterLimit2 ) ) 

(COND  ( (>  LOPres  11.0)  (SETQ  PresCounter2  0.0)) 

(T  (SETQ  PresCounter2  (+$  PresCounter2  1.0)))) 
(GO  ManagePumps) ) ) 

(SETQ  PresCounter2  CounterLimit2) 

;  tag  7005  +  4 

(COND  ((OR  (NOT  (<  LOPres  10.0)) 

(AND  (NCHighStart  Standby) 

(<  (+$  1.0  PresCounter 1 )  Counter Limitl )) ) 
(COND  ((NOT  (<  LOPres  10.0)) 

(SETQ  PresCounterl  0.0)) 

(T 

(SETQ  PresCounterl  (+$  1.0  PresCounterl)))) 

;  tag  7009 

(store  (LOPumpLowIndicator  Standby)  NIL) 

(store  (LOPumpHighIndicator  Standby)  T) 

(store  (NCLowStart  Standby)  NIL) 

(store  (NCHighStart  Standby)  T) ) ) ) ) 

ManagePumps 

(for  i  from  1  to  2 

do  (COND  ( (LOPumpStop  i)  ;  tag  4415 

(COND  ({NCLowStart  i) 

(store  (NCLowStart  i)  NIL) 

(store  (LOPumpLowIndicator  i)  NIL))) 

(COND  {  (NCHighStart  i) 

(store  (NCHighStart  i)  NIL) 

(store  (LOPumpHighIndicator  i)  NIL)))) 

( (CasualtyLOPump  i) 

(store  (LOPumpLowIndicator  i)  NIL) 

(store  (LOPumpHighIndicator  i)  NIL) 

(store  (NCHighStart  i)  NIL) 


(store  (NCLowStart  i)  NIL)) 

(T  ;  at  4453 

(COND  ( (LOPumpHighStart  i) 

(COND  ((NCLowStart  i) 

(store  (NCLowStart  i)  NIL) 

(store  (LOPumpLowIndicator  i)  NIL))) 

(COND  ((NOT  (NCHighStart  i)  ) 

(store  (NCHighStart  i)  T) 

(store  (LOPumpHighlndicator  i)  T) ) ) ) ) 

;  Low  Start  takes  priority. 

(COND  ( (LOPump Lows  tart  i) 

(COND  ( (NCHighStart  i) 

(store  (NCHighStart  i)  NIL) 

(store  (LOPumpHighlndicator  i)  NIL))) 

(COND  ( (NOT  (NCLowStart  i) ) 

(store  (NCLowStart  i)  T) 

(store  (LOPumpLowIndicator  i)  T) ) ) ) ) ) ) 

;  tag  4454 

(COND  ( (OR  (LOPumpHighlndicator  i) 

(LOPumpLowIndicator  i) ) 

(store  (LOPumpOn  i)  T) 

(COND  ( (LOPumpLowIndicator  i)  (store  (LOPumpHi//Low  i)  "Low) ) 

(T  (store  (LOPumpHi//Low  i)  "High)))) 

(T 

(store  (LOPumpOn  i)  NIL) 

(store  (LOPumpHi//Low  i)  NIL)))) 

ServicePur if ier 

(COND  ((AND  LOPur if ierPowerOn  (NOT  LOPur if ierStop)  LOPur if ierStart) 

(SETQ  LOPur if ier Motor On  T) ) 

(T 

(SETQ  LOPur if ier Mo tor On  NIL))))) 


(defun  LOPumpInit  () 

(setq  LOPur if ierStart  (select-ic  "(nil  nil  nil  nil))) 

(setq  LOPur if ierStop  (select-ic  "(nil  nil  nil  nil))) 

(setq  Standby //Emergency  (select-ic  "(nil  nil  nil  nil))) 

(setq  Remote //LocalSelect  (select-ic  "(Remote  Remote  Remote  Remote))) 
(setq  Manual//AutoSelect  (select-ic  "(Manual  Manual  Auto  Auto))) 

(SETQ  LOPur if ier Mo tor On  NIL) 

(SETQ  LOPur if ier Power On  NIL) 

(SETQ  PresCounterl  0.0) 

(SETQ  PresCounter2  0.0) 

(SETQ  PresCounter3  0.0) 

(SETQ  CounterLimitl  2.0) 

(SETQ  CounterLimit2  2.0) 

(SETQ  CounterLimit3  1.0) 

(FILLARRAY  LOPumpHighStart  "(())) 

(FILLARRAY  LOPumpLowStar t  '{{))) 

(FILLARRAY  LOPumpStop  "(())) 

; (setq  LOPump2Stop  (select-ic  "(nil  nil  nil  nil))) 

; (setq  LOPuroplStop  (select-ic  "(nil  nil  nil  nil))) 

; (setq  LOPump2LowStar t  (select-ic  "(nil  nil  nil  nil))) 

; (setq  LOPumplLowStar t  (select-ic  "(nil  nil  nil  nil))) 


; (setq  L0Pump2HighStar t  (select-ic  '(nil  nil  nil  nil))) 

; (setq  LOPumplHighStar t  (select-ic  '(nil  nil  nil  nil))) 

(FILLARRAY  LOPumpLowInd icator  '(())) 

(FILLARRAY  LOPumpHighlndicator  '(())) 

(FILLARRAY  LOPumpOn  '(())) 

(FILLARRAY  LOPumpHi//Low  '(())) 

(FILLARRAY  NCHighStart  '(())) 

(FILLARRAY  NCLowStart  '({))) 

(FILLARRAY  CasualtyLOPump  '(())) 

0  ) 

(defun  LOPumpStatus  () 

( terpr  i) 

(princ  ' I LOPump  Status:]) 

(COND  ((AND  (BOUNDP  'Standby) 

(BOUNDP  'Emergency) ) 

(format  T  '|‘'%~A  is  Standby;  "A  is  Emergency] 

Standby  Emergency))) 

(for  i  from  1  to  2 

do  (format  T  '1~%~A  [Off~;Running  ~A  Speed  with  flow  of  ~D  gpm~] ] 
i  (LOPumpOn  i)  (LOPumpHi//Low  i)  (LOPumpFlow  i))) 

(format  T  'l~%Mode  is  ~A  and  “a| 

Manual//AutoSelect  Remote//LocalSelect) 

(format  T  ']~%Purifier  motor  is  [off~;on~] ] 

LOPur if ierMotorOn) ) 


B.12  LOTemp 


(version) 

(declare  (unspecial  a  b  c  d  e)  (flonura  a  b  c  d  e) ) 

(defun  LOTempRun  () 

(PROG  (a  b  c  d  e) 

(COND  ((AND  LOPur if ierMotorOn  LOPur if ierValvel  LOPur if ierValve2 
LOPur if ierValve3  LOPur if ierValve4  LOPur if ierValve9) 
(COND  ((AND  LOHeaterValve4  LOHeaterValveS ) 

(SETQ  Heater//Pur if ierFlowPathEnabled  T) 

(COND  (LOPur if ierValveS  (Malop  11  bit23)))) 

(T 

(SETQ  Heater//Purif ierFlowPathEnabled  NIL))) 

;  tag  3151 

(COND  (LOPur if ierValveS 

(SETQ  Pur  if ierFlowPathEnabledNoHeater  T) ) 

(T 

(SETQ  Pur  if ierFlowPathEnabledNoHeater  NIL))) 

(COND  ((AND  (OR  LOPur if ierValve6 
LOPur if ier Valve? 

LOPur if ierValveS) 

(OR  He  a  te  r //Pur ifierFlowPathEnabled 


Pur  if ierFlowPathEnabledNoHeater ) ) 

(Malop  11  bit23) ) ) ) 

(T 

(SETQ  Heater//Pur if ierFlowPathEnabled  NIL) 

(SETQ  Pur  if ierFlowPathEnabledNoHeater  NIL))) 

;  tag  3110 

(COND  {(AND  (OR  Ca su a ItyLOCooler Failure  Heater//Pur if ierFlowPathEnabled) 
Heater//SteamHeaderPathEnabled) 

(SETQ  LOHeaterOn  T) ) 

(T 

(SETQ  LOHeaterOn  NIL)))  ;  Ignoring  malop  here,  at  tag  3152 

(COND  ( (OR  LOContaminateDr ainvalvel  LOContaminateDr ainValve2 
LOContaminateDr ainValveS  LOContaminateDr a inValve4 ) 

(Malop  11  bitl2))) 

(COND  (  (OR  LOStorageTankValvel  LOStorageTanlcValve2  LOStorageTankValve3 
LOStorageTankvalve4  LOStorageTankValveS ) 

(Malop  11  bitl2))) 

(COND  (LOCoolerSWVent  (Malop  11  bitO))) 

(COND  ((AND  (OR  Heater//Pur if ierFlowPathEnabled 
Pur  if ierFlowPathEnabledNoHeater) 

(NULL  LOPur if ierWasteDrain) ) 

(Malop  11  bitl2))) 

(SETQ  LOHeaterFlow 

(COND  (Heater //Pur  if ierFlowPathEnabled 
(+$  BmergencyWarmUpFlow  3.75)) 

(T 

EmergencyWarmUpFlow) ) ) 

(COND  ((a  LOHeaterFlow  0.0) 

(SETQ  OillntoHeaterTemp 

(//$  (+$  (*$  LOHeaterTempDecayTC  OillntoHeaterTemp) 

{*$  RoomTemp  DeltaT)) 

(+$  LOHeaterTempDecayTC  DeltaT))) 

(SETQ  OilOutOfHeaterTerap 

(//$  (+$  (*$  LOHeaterTempDecayTC  OilOutOfHeaterTerap) 

(*$  RoomTemp  DeltaT)) 

(+$  LOHeaterTempDecayTC  DeltaT)))) 

(T 

(SETQ  e  (MIN  200.0 


( COND (Heater//SteamHeaderPathEnabled 
(//$  (*$  650.0 

(-$  HeaterSteamlnletValveLif t  .1)) 
LOHeaterFlow) ) 

(T  0.0)))) 

(SETQ  HeaterTempRise  (//$  (+$  (*$  HeaterTempRise  LOHeaterTC) 

(*$  e  DeltaT)) 

(+$  LOHeaterTC  DeltaT))) 

(SETQ  OillntoHeaterTemp  MainSumpOilTemp) 

(SETQ  OilOutOfHeaterTerap  (+$  MainSumpOilTemp  HeaterTempRise)))) 
(SETQ  LOCoolerSWFlow 

(COND  (LOSWCooler  (MIN  1000.0  (*$  MCSWCondFlow 

LOCoo le  r  SWToMC  RecircFlow 
SWCoolerOutletValveLif t)  ) ) 

(T  0.0))) 

(SETQ  Bear ingTempRise  (//$  (+$  (*$  Bear ingTempRise  BearingTC) 


(*$  Bear ingTempFactor 

(**$  Shaf tRotationRPM) 

DeltaT) ) 

(+$  BearingTC  DeltaT))) 

(SETQ  OilIntoCoolerTemp  (+$  Ma inSumpOilTemp  (*$  .02  TotalOi iHeader Flow) ) ) 
(SETQ  Ma inSumpOilTemp 

(-$  (+$  Ma inSumpOilTemp 

(*$  (+$  (*$  TotalOilHeaderFlow 

(-$  (+$  Bear ingTempRise  Oi lOutOf CoolerTemp) 
OilIntoCoolerTemp) ) 

(*$  LOHeaterFlow  HeaterTempRise) ) 

(//$  DeltaT  TempFlowTimeFactor ) ) ) 

(*$  (-$  Ma inSumpOilTemp  Eng ineRoomSeaWaterTemp) 
AmbientHeatLossCoef f 
DeltaT) ) ) 

(COND  (  {>  Ma inSumpOilTemp  260  .0)  (SETQ  Ma inSumpOilTemp  260.0))) 

(COND  ( (>  TotalOilHeaderFlow  1.0) 

;  tag  3154 

(COND  ( (>  LOCoolerSWFlow  1.0) 

;  tag  3156 

(SETQ  a  (*$  LOCoolerSWFlow  TotalOilHeaderFlow) ) 

(SETQ  b  (*$  5.165E-5  a)  ) 

(SETQ  c  (+$  (*$  .01528  a) 

(*$  .1327  LOCoolerSWFlow  b) ) ) 

(SETQ  d  (*$  .05758  TotalOilHeaderFlow  b) ) 

(SETQ  Unf ilteredSWOutletTemp 

(//$  (+$  (*$  EngineRoomSeaWaterTemp  (-$  c  d) ) 

(*$  OilIntoCoolerTemp  (+$  d  d) ) ) 

(+$  c  d))) 

(SETQ  SWOutletTemp 

(//$  (+$  (*$  SWOutletTemp  LOCoolerTC) 

(*$  Unf ilteredSWOutletTemp  DeltaT)) 

(+$  LOCoolerTC  DeltaT))) 

(SETQ  LOOutletTemp 

(-$  OilIntoCoolerTemp 
(//$  (*$  2.305 

LOCoole  r  SWFlow 
(-$  Unf ilteredSWOutletTemp 
EngineRoomSeaWaterTemp) ) 
TotalOilHeaderFlow) ) ) 

(SETQ  OilOutOf CoolerTemp 

(//$  (+$  (*$  OilOutOf Cooler Temp  LOCoolerTC) 

(*$  LOOutletTemp  DeltaT)) 

(+$  LOCoolerTC  DeltaT)))) 

(T 

(SETQ  OilOutOfCoolerTemp 

{//$  (+$  (*S  LOOutletTemp  LOCoolerTC) 

(*$  OilIntoCoolerTemp  DeltaT)) 

(+$  LOCoolerTC  DeltaT)))))) 

((NOT  (>  LOCoolerSWFlow  1.0)) 

(SETQ  OilOutOfCoolerTemp  OilIntoCoolerTemp) 

(SETQ  SWOutletTemp  RoomTemp) ) 

(T 

(SETQ  SWOutletTemp  EngineRoomSeaWaterTemp))) 


;  tag  3155 

(SETQ  LOTemp  (+$  OilOutOf CoolerTemp  Bear ingTempRise) ) 

(COND  (CasualtyAf tJournalBear ing 

(SETQ  Af tJournalBear ingTemp 

(MIN  180.0  (+$  Af tJournalBear ingTemp  DeltaT)))) 

(T 

(SETQ  Af tJournalBear ingTemp  LOTemp))) 

(COND  (CasualtyFwdJournalBear ing 

(SETQ  FwdJournalBear ingTemp 

(MIN  180.0  (+$  FwdJournalBear ingTemp  DeltaT)))) 

(T 

(SETQ  FwdJournalBear ingTemp  LOTemp))) 

(COND  (CasualtyFwdPinionBear ing 

(SETQ  FwdPinionBear ingTemp 

(MIN  180.0  (+$  FwdPinionBear ingTemp  DeltaT)))) 

(T 

(SETQ  FwdPinionBear ingTemp  LOTemp))) 

(COND  (CasualtyMainThrustBear ing 

(SETQ  MainThrustBear ingTemp 

(MIN  220.0  (+$  MainThrustBear ingTemp  DeltaT)))) 

(T 

(SETQ  MainThrustBear ingTemp  LOTemp))) 

(COND  ( (OR  Purif ierFlowPathEnabledNoHeater 
Heater//Pur if ierFlowPathEnabled) 

(SETQ  OilFromHeater intoPur if ierTemp 

{//$  (+$  (*$  OilOutOfHeaterTemp 
3.75 

(ToFlonum  Heater//Pur if ierFlowPathEnabled) ) 

(*$  MainSumpOilTemp 
3.75 

(ToFlonum  Purif ierFlowPathEnabledNoHeater)  )) 

(*$  3.75 

(+$  (ToFlonum  Heater//Pur if ierFlowPathEnabled) 

(ToFlonum  Pur  if ierFlowPathEnabledNoHeater)  ) ) ) ) ) 
(T 

(SETQ  OilFromHeaterlntoPur if ierTemp  RoomTemp) ) ) 

(SETQ  HeaterTempFlowFactor  (+$  .158  (*$  .002526  OilOutOfHeaterTemp))) 
(SETQ  Pur  if ierInletPresFactor  (*$  Pur  if ier InletPresConstantFactor 

HeaterTempFlowFactor) ) 

(SETQ  Pur  if ierinletpres 

(-$  (COND  (LOPur if ierMotorOn  Pur  if ierPresConstant) 

(T  0.0)) 

(//$  (+$  14.06 

(COND  ((AND  Heater//Pur if ierFlowPathEnabled 

(NOT  Pur  if ierFlowPathEnabledNoHeater ) ) 

1.0) 

(T  0.0))) 

(**$  Pur  if ier InletPresFactor) ) ) ) ) ) 


(defun  LOTempInit  () 

(setq  LOSWCooler  (select-ic  "(nil  nil  t  t)  ) ) 

(setq  LOHeater SteamDr ain  (select-ic  "(nil  nil  t  t) ) ) 
(setq  LOPur  if  ierWasteDtain  (select-ic  "(nil  t  t  t)  ) ) 


etq  LOCooler SWVent  (select-ic  '(nil  nil  nil  nil))) 

(setq  LOStorageTankValveS  (select-ic  '(nil  nil  nil  nil))) 

(setq  LOStor ageTankValve4  (select-ic  '(nil  nil  nil  nil))) 

(setq  L0StorageTankValve3  (select-ic  '(nil  nil  nil  nil))) 

(setq  LOStorageTankValve2  (select-ic  '(nil  nil  nil  nil))) 

(setq  LOStorageTankValvel  (select-ic  '(nil  nil  nil  nil))) 

(setq  L0ContaminateDrainValve4  (select-ic  '(nil  nil  nil  nil))) 

(setq  LOContaminateDrainValveS  (select-ic  '(nil  nil  nil  nil))) 

(setq  L0ContaniinateDtainValve2  (select-ic  '(nil  nil  nil  nil))) 

(setq  LOContaminateDrainValvel  (select-ic  '(nil  nil  nil  nil))) 

(setq  LOPur if ierValve9  (select-ic  '(nil  nil  nil  nil))) 

(setq  LOPur if ierValveS  (select-ic  '(nil  nil  nil  nil))) 

(setq  LOPur if ierValve?  (select-ic  '(nil  nil  nil  nil))) 

(setq  LOPur if ierValve6  (select-ic  '(nil  nil  nil  nil))) 

(setq  LOPur if ierValveS  (select-ic  '(nil  nil  nil  nil))) 

(setq  LOPur if ierValve4  (select-ic  '(nil  nil  nil  nil))) 

(setq  LOPur if ierValve3  (select-ic  '(nil  nil  nil  nil))) 

(setq  LOPur if ierValve2  (select-ic  '(nil  nil  nil  nil))) 

(setq  LOPur if ierValvel  (select-ic  '(nil  nil  nil  nil))) 

(setq  LOHeaterValveS  (select-ic  '(nil  nil  nil  nil))) 

(setq  LOHeaterValve4  Uelect-ic  '(nil  nil  nil  nil))) 

(setq  SWCoolerOutletValveLif t  (select-ic  '(0.0  0.0  1.0  1.0))) 

;  Heater Steamlnle tValveLi ft  is  set  in  ISOpsiSteam  too. 

(setq  Heater Steamlnle tValveLi ft  (select-ic  '(0.0  0.0  0.0  0.0))) 

(SETQ  CasualtyAf tJournalBear ing  NIL) 

(SETQ  CasualtyFwdJournalBear ing  NIL) 

(SETQ  CasualtyFwdPinionBear ing  NIL) 

(SETQ  CasualtyMainThrustBear ing  NIL) 

(SETQ  Heater SteamlnletValveLift  0.0) 

(SETQ  Heater/ZSteamHeaderPathEnabled  NIL) 

(SETQ  Heater //Pur if ierFlowPathEnabled  NIL) 

(SETQ  Pur  if ierFlowPathEnabledNoHeater  NIL) 

(SETQ  LOTemp  70.0) 

(SETQ  Af tJournalBear ingTemp  70.0) 

(SETQ  FwdJournalBear ingTemp  70.0) 

(SETQ  FwdPinionBear ingTemp  70,0) 

(SETQ  MainThrustBear ingTemp  70.0) 

(SETQ  OilIntoHeaterTemp  70.0) 

(SETQ  OilOutOf Heater Temp  70.0) 

(SETQ  OilIntoCoolerTemp  70.0) 

(SETQ  OilOutOf CoolerTemp  70.0) 

(SETQ  SWOutletTemp  0.0) 

(SETQ  OilFromHeaterlntoPur if ierTemp  70.0) 

(SETQ  Pur  if ier InletPr es  0.0) 

(SETQ  Ma inSumpOi iTemp  70.0) 

(SETQ  LOHeaterFlow  0.0) 

(SETQ  HeaterTempRise  0.0) 

(SETQ  LOCoolerSWFlow  0.0) 

(SETQ  Bear ingTempRise  0.0) 

(SETQ  Unf i Iter edSWOu tie tTemp  70.0) 

(SETQ  LOOutletTemp  70.0) 

(SETQ  HeaterTempFlowFactor  70.0) 


(SETQ  Pur  if ier InletPresFactor  0.0) 

(SETQ  Timeincrement  .5) 

(SETQ  BearingTC  30.0) 

(SETQ  Bear ingTempFac tor  .00052) 

(SETQ  TempFlowTime Factor  66000.0) 

(SETQ  LOCoolerTC  5.0) 

(SETQ  RoomTemp  75.0) 

(SETQ  LOHeaterTC  10.0) 

(SETQ  LOHeaterDecayTC  1200.0) 

(SETQ  LOHeaterTempDecayTC  10.0) 

(SETQ  Pur  if ier InletPresConstantFactor  2.65) 
(SETQ  Pur  if ierPresConstant  25.0) 

(SETQ  LOCoolerSWToMCRecircFlow  .06) 

(SETQ  AmbientHeatLossCoef f  l.OE-5) 

0  ) 


(defun  TurnOnLOTemp  () 

(SETQ  Heater //SteamHeaderPathEnabled  T) 

(SETQ  LOPur if ierValvel  T) 

(SETQ  LOPur if ier Valve2  T) 

(SETQ  LOPur if ierValveS  T) 

(SETQ  LOPur if ierValve4  T) 

(SETQ  LOPur if ierValveS  T)  ;  Turn  on  Keater//Pur if ierFlowPath 
(SETQ  LOHeaterValve4  T) 

(SETQ  LOHeaterValveS  T)  ;  Turn  on  the  sea  water  to  the  LOCoolet 

0) 


(defun  LOTeinpStatus  () 

(Statusprint  LOTempStatusVar s) ) 

(setq  LOTempStatusVars  " (OilIntoHeaterTerop  OilOutOfHeaterTemp 

OilIntoCoolerTemp  OilOutOf Cooler Temp 
MainSumpOilTemp  LOOutletTemp  Purif  ierInletPres)  ) 


B.13  MainCondenser 


(version) 

(declare  (unspecial  sumq  d  temp)  (flonum  sumq  d  temp) ) 

(defun  MainCondenser  Run  () 

(PROG  (sumq  d  temp) 

(SETQ  HotwellLiquidVolume  (*$  .01625  HotwellLiquidMass) ) 

(SETQ  Ho twellWa ter Level  (*$  .4646  HotwellLiquidVolume) ) 

(COND  ( (<  HotwellWaterLevel  0.0)  (SETQ  HotwellWa ter Level  0.0))) 
(COND  ( (<  HotwellLiquidVolume  19.78)  (SETQ  SeaWaterFlowCoef f  1.0)) 
(T  (SETQ  HotwellWaterLevel 

(+$  (*$  .1498  HotwellLiquidVolume)  6.226)) 

(COND  ( (<  HotwellWaterLevel  17.0) 


(SETQ  SeaWaterFlowCoef f  1.0)) 

(T 

(COND  ( (>  HotwellWaterLevel  104.0) 

(SETQ  HotwellWaterLevel  104.0))) 

(SETQ  SeaWaterFlowCoef f 
(FBOUNDS  0.0 

(+$  (*$  HotwellWaterLevel  -.2327) 
5.502) 

1.546)))))) 

(  tag  3251 

(SETQ  HotwellLevelGage  (-$  HotwellWaterLevel  3.0)) 

r  Calculate  steam  mixture  enthalpy. 

(SETQ  TotalSteamFlowInput  (+$  ForwardSteamFlow 

Ma inCondenser SteamFlow 
AstecnSteamFlow) ) 

(COND  ( (<  TotalSteamFlowInput  .01)  ;  Cold  Iron  test 

(SETQ  TotalSteamFlowInput  .01))) 

(COND  ((AND  (=  MainShaftNormalizedRPM  0.0) 

;  Shaft  Rotation  is  a  guess,  the  original  listing 
;  has  ETTNMA,  which  has  not  ’  ien  found  yet, 

(=  CircPumpMotor Speed  0.0) 

(=  ShipSpeed  0.0) 

(=  CondensateFlowAEEnthalpy  0.0)) 

(SETQ  temp  1.0)) 

((AND  (<  MCSWCondFlow  Cool ingFlowThreshold) 

(=  CircPumpMotor Speed  0.0)) 

(SETQ  temp 

(FBOUNDS  0.0 

(//S  (-$  MCSWCondFlow 

Cool ingFlowInter cep t) 

(-$  Cool ingFlowThreshold 
CoolingFlowintercept) ) 

1.0)) 

(SETQ  CondensateFlowAEEnthalpy  OverheatConstant) ) 

(T 

(SETQ  temp  1.0) 

(SETQ  CondensateFlowAEEnthalpy  0.0))) 

;;  Now  at  tag  3254,  and  assuming  SUMQ  is  an  internal  variable. 
(SETQ  sumq 

(+$  (*$  ForwardSteamFlow  TurbineExitEnthalpy) 

(*$  Ma inCondenser SteamFlow  Ma  inCondenser SteamEnthalpy) 
(*$  CondensateFlowAECondenser  CondensateFlowAEEnthalpy) 
(*$  Aster nSteamFlow  TurbineExhaustEnthalpy)  ) ) 

(SETQ  SteamAverageEnthalpy  (//$  sumq  TotalSteamFlowInput) ) 

(SETQ  FilteredHeatExchangerValue  SteamAverageEnthalpy) 

(SETQ  Ef fectiveSeaWaterFlow 

(*$  temp  SeaWaterFlowCoef f  SeaWaterCooiantMassPlow) ) 

(COND  ((<  Ef fectiveSeaWaterFlow  1.0) 

(SETQ  Ef fectiveSeaWaterFlow  1.0))) 

(COND  ( (<  SeaWaterCooiantMassPlow  1.0) 

(SETQ  SeaWaterCooiantMassPlow  1.0))) 

(SETQ  CondenserHeatTransferCoeff 


*$  20.45  (SQRT  SeaWaterCoolantMassFlow) ) ) 

;  Calculate  steam  temperature. 

(SETQ  HeatExchangerFunctionO 

(//$  1.0  (+$  (//$  1.0  CondenserHeatTr ansfetCoef f ) 

(//$  1.0  (*$  2.0  Ef fectiveSeaWaterFlow) ) ) ) ) 
(SETQ  CondenserLiquidTC  (//$  SeaWaterMass 

(*$  DeltaT  SeaWaterCoolantMassFlow) ) ) 
(SETQ  HeatExchangerFunctionl  (//$  HeatExchangerFunctionO 

TotalSteamFlowInput) ) 

(SETQ  HeatExchangerFunction2  (//$  1.0  HeatExchangerFunctionl)) 
(SETQ  Unf ilteredHotwellTemp 

(FBOUNDS  EngineRoomSeaWaterTemp 

(+$  (//$  (+$  FilteredHeatExchangerValue  32.0) 

(+$  HeatExchangerFunctionl  1.0)) 

(//$  EngineRoomSeaWaterTemp 

(+$  HeatExchanger Function2  1.0))) 

300.0) ) 

(SETQ  HotwellTemp  (//$  (+$  (*$  TempTCl  HotwellTemp) 

(*$  Unf ilteredHotwellTemp  DeltaT)) 

(+$  TempTCl  DeltaT))) 

;  Calculate  sea  water  exit  temperature. 

(SETQ  HeatExchangerFunctionl  (//$  (*$  2.0  Ef fectiveSeaWaterFlow) 

CondenserHeatTr ansferCoeff)  ) 

(SETQ  SeaWaterOutletTemp 

(*$  (//$  1.0  (+$  1.0  HeatExchangerFunctionl)) 

(-$  (*$  2.0  HotwellTemp) 

(*$  (-$  1.0  HeatExchangerFunctionl) 
EngineRoomSeaWaterTemp) ) ) ) 

(COND  ( (>  SeaWaterOutletTemp  220.0) 

(SETQ  SeaWaterOutletTemp  220.0))) 

(COND  (Fir stPassFlag  ;  Initially  T 

(SETQ  SeaWaterCoolantOutletTemp  SeaWaterOutletTemp)) 

(T 

(SETQ  SeaWaterCoolantOutletTemp 

(*$  (//$  1.0  (+$  1.0  CondenserLiquidTC)) 

(  +  $  SeaWaterOutletTemp 

(*$  CondenserLiquidTC 

SeaWaterCoolantOutletTemp) ) ) ) ) ) 

;  tag  3210 

;;  Assuming  ECTVD  is  a  temporaryr  using  d  instead. 

(SETQ  d  (+$  CombinedTempInterceptConstant 
(*$  CombinedTempSlopeConstant 
(+$  SteamFlowRatioForward 

(*$  SteamFlowRatioAstern  .00046))))) 

(COND  ( (<  d  Unf ilteredHotwellTemp) 

(SETQ  Unf i Iter edVapor Temp  Unf ilteredHotwellTemp) ) 

(T 

(SETQ  Unf ilteredVaporTemp  d) ) ) 

(SETQ  LPTurbineExhaustTerapCondenser 

(//$  (+$  (*$  LPTurbineExhaustTempCondenser  TempTC2) 

(*$  DeltaT  Unf ilteredVaporTemp) ) 


*$  TempTC2  DeltaT))) 

(COND  ( (>  LPTucbineExhaustTempCondenser  212.0) 

(SETQ  LPTurbineExhaustTempCondenser  212.0))) 

;;  The  Previous  expression  was  before  the  conditional  on  the 
;;  CondensateFlowAEEnthalpy,  which  seemed  to  cause 
;;  problems. 

(COND  ( (>  HotwellTemp  LPTurbineExhaustTempCondenser) 

(SETQ  HotwellTemp  LPTurbineExhaustTempCondenser))) 

(SETQ  Condenser StearaPres 

(-$  (*$  LPTurbineExhaustTempCondenser 
(+$  .1361 

(*$  -.001392  LPTurbineExhaustTempCondenser) 
(*$  5.5E-6 

(**$  LPTurbineExhaustTempCondenser) ) ) ) 

4.34) ) 

(SETQ  LPTurbineExhaustPr esCondenser 

(+$  Condenser AirPres  (*$  Condenser SteamPres  2.0354))) 
(COND  ((AND  (>  TotalSteamFlowInput  1.0) 

(>  LPTurbineExhaustPresCondenser  VacuumThreshold) 
Fir stPassFlag)  ;  Why  test  Fir stPassFlag? 

(SETQ  FreezeFlag  5) 

(FREEZE  21))) 

(SETQ  VacuumVaporPtes 

(-$  29.92  LPTurbineExhaustPresCondenser)) 

(SETQ  HotwellBottomPresHead 

(+$  (*$  LPTurbineExhaustPresCondenser  .4913) 

(*$  Ho twellWa ter Level  .03588) 

-14.7)) 

(SETQ  WaterMassDer ivative 
(+$  RecircFlow 

TotalSteamFlowInput 

(*$  (-$  CondenserFillPlow  CondensateFlow)  .13369))) 
(SETQ  HotwellLiquidMass 

(+$  HotwellLiquidMass  (*$  WaterMassDer ivative  DeltaT))) 
(COND  ( (<  HotwellLiquidMass  1.0)  (SETQ  HotwellLiquidMass  1.0))) 
(SETQ  Fir stPassFlag  NIL) 

)  ) 


(defun  MainCondenser Init  () 

(SETQ  Condenser FillFlow  0.0) 

(SETQ  FilteredHeatExchangerValue  0.0) 

(SETQ  Eng ineRoomSeaWa ter Temp  60.0)  ;  says  The  Chief 

(SETQ  Ma inCondenser SteamEnthalpy  0.0) 

(SETQ  150psiSteamEnthalpy  1200.0)  ;  from  FireMain  Integration 

(SETQ  Fir stPassFlag  T) 

(SETQ  Hotwe llLiquidVolume  0.0) 

(SETQ  Hotwe llWa ter  Level  0.0) 

(SETQ  HotwellLiquidMass  0.0) 

(SETQ  Seawater FlowCoeff  0.0) 

(SETQ  TotalSteamFlowInput  0.0) 

(SETQ  CondensateFlowAEEnthalpy  0.0) 


(SETQ  SteamAverageEnthalpy  0.0) 

(SETQ  PilteredHeatExchangerValue  0.0) 

(SETQ  Ef fectiveSeaWaterFlow  0.0) 

(SETQ  SeaWaterCoolantMassFlow  0.0) 

(SETQ  CondenserHeatTransferCoef f  0.0) 

(SETQ  HeatExchangerFunctionO  0.0) 

(SETQ  HeatExchangerFunctionl  0.0) 

(SETQ  HeatExchangerFunction2  0.0) 

(SETQ  HeatExchangerFunction3  0.0) 

(SETQ  Condenser LiquidTC  0.0) 

(SETQ  Unf ilteredHotwellTemp  0.0) 

(SETQ  HotwellTemp  70.0) 

(SETQ  SeaWaterOutletTemp  0.0) 

(SETQ  CondenserSteamPres  0.0) 

(SETQ  LPTurbineExhaustTempCondenser  0.0) 

(SETQ  LPTurbineExhaustPresCondenser  0.0) 

(SETQ  VacuumVaporPres  0.0) 

(SETQ  HotwellBottomPresHead  0.0) 

(SETQ  WaterMassDer ivative  0.0) 

;;  Model  Constants 

(SETQ  SeaWaterMass  12500.0) 

(SETQ  TempTCl  30.0) 

(SETQ  TempTC2  50.0) 

(SETQ  DischargeTempCurveConstant  .9) 

(SETQ  DischargeTerapCurveSlopeConstant  .5) 

(SETQ  DischargeTempInterceptConstant  83.0) 

(SETQ  CombinedTempSlopeConstant  .45) 

(SETQ  CombinedTerapInterceptConstant  74.7) 

(SETQ  VacuumThreshold  20.0) 

(SETQ  CoolingFlowThreshold  12000.0) 

(SETQ  OverheatConstant  1000.0) 

(SETQ  CoolingFlowIntercept  4000.0) 

(SETQ  HiReciccHeatLossConstant  .5) 

0  ) 

(defun  MainCondenserStatus  () 

(StatusPr int  MainCondenserStatusVars) ) 

(defun  MainCondenserValveStatus  () 

(StatusPr int  MainCondenserValveStatusVar s) ) 

(setq  MainCondenser Parameters  " (RecircFlowDemand 

Coo 1 ingWa  te  r  Pr  e  sHe  ad 
CondensatePlowAECondenser 
RecircFlow)  ) 

(setq  MainCondenserStatusVars  " (HotwellWaterLevel 

HotwellTemp 

LPTurbineExhaustTempCondenser 

LPTurbineExhaustPresCondenser 

CondenserSteamPres 

Unf ilteredHotwellTemp 

Unf iltetedVaporTemp 


CondenserAir Pr es 
CondensateFlow 
SeaWaterCoolantOutletTemp)  ) 

( setq  MainCondenserValveStatusVars 

' (StartCondPumplA  Star tCondPumplB 

Co  ndP  ump 1 APo we  r  On  Co  ndP  umplB  Po we  r  On 

CondPuinplAAuralCue  CondPumplBAur  alCue 
PumplASuctionValve  PumplBSuctionValve 
PuniplAGlandSe  alVa  Ive  PumplBGlandSe  alVa  Ive 
PumplAVentValve  PumplBVentValve 

PumplADischargePr es  PumplBDischargePr es 
Condense teSystemShutoffValve) ) 


B.14  MainSteam 


(version) 

(declare  (unspecial  a  b  c  d  e  j)  (flonum  a  b  c  d  e  j) ) 

(defun  MainSteamRun  () 

(PROG  (a  b  c  d  e  j) 

(SETQ  MSSteamDemand 
(+$  (*$  .603 

SteamFlowRatio For ward 

(COND  ( (EQ  AheadEnable  'SECURED)  0.0) 

( (EQ  AheadEnable  'OPERATING)  1.0) 

(T  2.0))) 

(*$  .00028 

SteamFlowRatio As tern 

(COND  ( (EQ  AsternEnable  'SECURED)  0.0) 

( (EQ  AsternEnable  'OPERATING)  1.0) 

(T  2.0))))) 

;  MTAheadSteam  is  in  terms  of  Ibs/sec. 

(COND  ( (EQ  Mode  'integrated) 

;  Won't  happen  for  a  while... 

;  MSCrossConnect=EMVCC 
;  MSSteamEnable=EME 
;  Turbinelnle tSteamPr es=ETTIP 
;  Turbine In letSteamTemp=ETTIT 
;  TurbineHeaderPr es=EMPMS 

(SETQ  MSCrossConnect  FRCrossConnect) 

(SETQ  MSSteamEnable  FRSteamEnable) 

(SETQ  Turbinelnle tSteamPres  FRMa inSteamPr es) 

(SETQ  TurbinelnletSteamTemp  FRMainSteamTemp) 

(SETQ  TurbineHeaderPr es  FRMainSteamPr es) 

(SETQ  CrossConnectl  StopValvelMS2A) 

(SETQ  CrossConnect2  StopValvelMS2B) 

(SETQ  CrossConnect3  (OR  StopValvelMS2A  WarmupBypasslMS2A) ) 
(SETQ  CrossConnect4  (OR  StopValvelMS2B  WarmupBypasslMS2B) ) ) 


(T  ;  INDEPENDENT  mode 

(SETQ  MSCrossConnect  T) 

(SETQ  SteamPressureLevel  {*$  1300.0  SteamPressureKnob) ) 

;  Instructor's  controls  we  call  "knobs". 

(SETQ  IBOlbSteamReducerPres  (-$  SteamPressureLevel  10.0)) 
(COND  ( (NOT  (OR  StopValvelMS2A  StopValvelMS2B 

WarmupBypasslMS2A  WarmupBypasslMS2B) ) 

;  Engine  room  secured 

(SETQ  MSSteamEnable  'SECURED) 

(SETQ  TurbineHeaderPres  0.0) 

(SETQ  TurbinelnletSteamTemp  70.0) 

(SETQ  TurbinelnletSteamPres  0.0)) 
fT 

(COND  ((OR  StopValvelMS2A  StopValvelMS2B) 

(SETQ  MSSteamEnable  'OPERATING) ) 

(T 

(SETQ  MSSteamEnable  'WARMUP) ) ) 

(SETQ  TurbinelnletSteamTemp  950.0) 

(COND  (ControlPanelACCOn 

;  steam  pressure  rises. 

(SETQ  b  (*$  DeltaT  (+$  EMTl  EMT2)  )  ) 

(SETQ  c  (*$  DeltaT  DeltaT)) 

(SETQ  d  (*$  EMT3  DeltaT  (-$  MSSteamDemand 

IMPresTrans4) ) ) 

(SETQ  d  (//$  (+$  (*$  IMPresTrans2 

(+$  {*$  2.0  EMT6)  b) ) 

(-$  (*$  EMT6  IMPresTrans3) )  d) 
(+$  EMT6  be))) 

(SETQ  IMpresTrans4  MSSteamDemand) 

(SETQ  IMPresTrans3  lMPresTrans2) 

(SETQ  IMPresTrans2  d) 

(SETQ  IMPresTransl  0.0) 

(COND  ( (<  d  0.0) 

(SETQ  d  0.0) 

(SETQ  IMPresTrans2  0.0) 

(SETQ  IMPrestrans3  0.0) 

(SETQ  IMPresTrans4  0.0))) 

(SETQ  TurbineHeaderPres  (-$  1265.0  d) ) 

(SETQ  TurbinelnletSteamPres  1265.0)) 

(T  ;  ControlPanelAccOn  is  NIL 

(SETQ  IMPresTransl 

(//$  {+$  (*$  EMT4  IMPresTransl) 

(*$  EMKW  MSSteamDemand 
DeltaT)  ) 

(+$  EMT4  DeltaT))) 

(SETQ  TurbineHeaderPres 
(FBOUNDS  0.0 

(-$  SteamPressureLevel 
IMPresTransl ) 

1300.0) ) 

(SETQ  IMPresTransl  (-$  SteamPressureLevel 

TurbineHeaderPres)  ) 

(SETQ  IMPresTrans4  MSSteamDemand) 

(SETQ  IMPresTransl  0.0) 
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(SETQ  IMPresTtans2  0.0) 

(SETQ  Tucbinelnle tSteamPr es 

SteamPressureLevel) )))))) 

;;  Now  at  3  in  flowchart,  tag  4110  in  code. 

(COND  ((NOT  (OR  MSWarmupDr ainl  MSWarmupDr ain2 ) ) 

(COND  (MSConstantDrain  (SETQ  MSDrainAlign  'OPERATING)) 

(T  (SETQ  MSDrainAlign  'SECURED)))) 

((OR  (XOR  MSWarmupDr ainl  MSWarmupDr a in2) 

MSConstantDrain) 

(Malop  emalop  7  bitl2)) 

(T 

(SETQ  MSDrainAlign  'WARMUP))) 

(COND  ( (NEQ  MSSteamEnable  MSDrainAlign) 

(Malop  emalop  7  bitl2))) 

(COND  ( (OR  (NOT  (AND  (EQ  MSSteamEnable  'OPERATING) 

StopValvelMS2A 
StopValvelMS2B) ) 

StopValvelMS2A 

StopValvelMS2B) 

(Malop  emalop  7  bit03))) 

(COND  (MSCrossConnect  (SETQ  c  1.17) 

(SETQ  d  .0943)) 

(T  (SETQ  c  .771) 

(SETQ  d  .0489) ) ) 

(SETQ  TurbineHeaderPres 

(-$  TurbineHeaderPres  (*$  MSSteamDemand 

(+$  c  (*$  MSSteamDemand  d) ) ) ) ) 

(COND  ( (<  TurbineHeaderPres  0.0)  (SETQ  TurbineHeaderPres  0.0))) 
(COND  ( (EQ  MSSteamEnable  'SECURED)  (SETQ  a  1000.0)) 

( (EQ  MSSteamEnable  'OPERATING)  (SETQ  a  1.0)) 

;  assume  WARMUP 

((AND  MSWarmupDr a ini  MSWarmupDr ain2)  (SETQ  a  15.0)) 

(T  (SETQ  a  1000.0) ) ) 

(SETQ  TurbineHeaderTemp  (//$  (+$  (*$  a  TurbineHeaderTemp) 

(*$  DeltaT 

Turbinelnle tSteamTemp) ) 

(+$  a  DeltaT)  )  ) 

;  now  at  line  1427 

(COND  (AheadGuarding  (SETQ  AheadEnable  'OPERATING)) 

(AheadGuard ingWarmupBypass  (SETQ  AheadEnable  'WARMUP)) 

(T  (SETQ  AheadEnable  'SECURED) ) ) 

(COND  ( (EQ  MSSteamEnable  'SECURED) 

(SETQ  AheadEnable  'SECURED) ) 

( (EQ  MSSteamEnable  'WARMUP) 

(COND  ( (NEQ  AheadEnable  'SECURED) 

(SETQ  AheadEnable  'WARMUP) ) ) ) ) 

(COND  (AsternGuarding  (SETQ  AsternEnable  'OPERATING)) 

(Aster nGuard ingWarmupBypass  (SETQ  AsternEnable  'WARMUP)) 

(T  (SETQ  AsternEnable  'SECURED))) 

(COND  ( (EQ  MSSteamEnable  'SECURED) 

(SETQ  AsternEnable  'SECURED)) 

( (EQ  MSSteamEnable  'WARMUP) 

(COND  (  (NEQ  AsternEnable  'SECURx.')) 
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(SETQ  AsternEnable  'WARMUP))))) 

;  line  1438 

(COND  (  (NOT  (OR  AheadGuardirvgWacmupBypass  AstetnGuatdingWarmupBypass 
SteamChestWarraupBypassl  SteamChestWarmupBypass2) ) 
(COND  (SteamChestContinuousDr ain 

(AND  (NEQ  AheadEnable  'OPERATING) 

(Malop  13  Drain  Engine))) 

( (NEQ  AheadEnable  'SECURED) 

(Malop  13  Drain  Engine)))) 

((AND  AheadGuardingWarmupBypass  AsternGuardingWarmupBypass 
SteamChestWarmupBypassl  SteamChestWarmupBypass2 
(NOT  SteamChestContinuousDr ain) ) 

(COND  ( (NEQ  AheadEnable  'WARMUP) 

(Malop  13  Drain  Engine)))) 

(T 

(Malop  Emalop  7  ibitl2))) 

(COND  ((NOR  (AND  (NOR  MSCasingDr ainl  MSCa sing Drain 2) 

(OR  (EQ  AheadEnable  'SECURED) 

(>  MSSteamDemand  0.0))) 

(AND  MSCasingDr ainl  MSCasingDr a in 2 
(=  MSSteamDemand  0.0) 

(NEQ  AheadEnable  'OPERATING) ) ) 

(Malop  7  Bitl2) ) ) 

(SETQ  j  (AND  (>  MSValveStrokeForward  .143) 

(NEQ  AheadEnable  'SECURED) ) ) 

(COND  ( (EQ  MSSteamEnable  'SECURED) 

(AND  (NOT  (OR  MSWarmupDr ainl  MSWarraupDtain2 

(AND  (OR  AheadGuarding  AsternGuarding) 

(OR  SteamChestWarmupBypassl 
SteamChestWarmupBypass2) ) 

j)) 

(SETQ  MSHeaderPres  (//$  (*$  MSHeaderPres 

MSDecaySteamPressure) 

(+$  MSHeaderPres  DeltaT))))) 

( (EQ  MSSteamEnable  'OPERATING) 

(SETQ  MSHeaderPres  TurbineHeaderPr es) ) 

(T  ;  WARMUP 

(SETQ  MSHeaderPres 

(COND  (j  (//$  (*$  TurbineHeaderPr es  DeltaT) 

(  +  $  EMT5  DeltaT)  )  ) 

(T  (//$  (+$  (*$  TurbineHeaderPr es  DeltaT) 

(*$  MSHeaderPres  EMT5) ) 

(+$  EMT5  DeltaT) )))))) 

(SETQ  MSSteamDemandRTI  MSSteamDemand) ) ) 


{defun  MainSteamlnit  () 

(setq  SteamPresKnob  (select-ic  '(0.0  0.0  1.0  1.0))) 

(setq  ControlPanelACCOn  (select-ic  '(nil  t  t  t) ) ) 

(setq  MSCasingDr ain2  (select-ic  '(nil  nil  nil  nil))) 

(setq  MSCasingDr ainl  (select-ic  '(nil  nil  nil  nil))) 

(setq  SteamChestContinuousDr ain  (select-ic  '(nil  nil  t  t) ) ) 
(setq  SteamChestWarmupBypass2  (select-ic  '(nil  nil  nil  nil))) 
(setq  SteamChestWarmupBypassl  (select-ic  '(nil  nil  nil  nil))) 


(setq  Aster nGuacdingWarmupBypass  (select-ic  ^ (nil  nil  nil  nil))) 

(setq  AheadGuardingWarmupBypass  (select-ic  '(nil  nil  nil  nil))) 

(setq  AsternGuarding  (select-ic  '(nil  nil  t  t) ) )  ;  also  in  MainTurbine 

(setq  AheadGuard ing  (select-ic  '(nil  nil  t  t) ) ) 

;  AheadGuarding  is  also  in  MainTurbine  and  Controlair 
(setq  MSValveStrokeForward 

(select-ic  '(0.0  0.0  0.276  0.57)))  ;  also  in  MainTurbine 

(setq  MSConstantDrain  (select-ic  '(nil  nil  t  t) ) ) 

(setq  MSWarmupDr ain2  (select-ic  '(nil  nil  nil  nil))) 

(setq  MSWarmupDrainl  (select-ic  '(nil  nil  nil  nil))) 

(setq  WarniupBypasslMS2B  (select-ic  '(nil  nil  nil  nil))) 

(setq  WarmupBypasslMS2A  (select-ic  '(nil  nil  nil  nil))) 

(setq  StopValvelMS2B  (select-ic  '(nil  nil  t  t) ) ) 

(setq  StopValvelMS2A  (select-ic  '(nil  nil  t  t) ) ) 

(SETQ  mode  'INDEPENDENT) 

(SETQ  EMTl  3.0) 

(SETQ  EMT2  10.0) 

(SETQ  EMT3  50.0) 

(SETQ  EMT4  10.0) 

(SETQ  EMT5  5.0) 

(SETQ  EMT6  (*$  EMTl  EMT2)  ) 

(SETQ  EMKW  8.0) 

(SETQ  MSDecayStearaPressure  20.0) 

(SETQ  SteamPressureLevel  0.0) 

(SETQ  ISOlbSteamReducerPres  0.0) 

(SETQ  Turbine Inle tSteamPres  0.0) 

(SETQ  TurbinelnletSteamTemp  0.0) 

(SETQ  MTAheadSteam  0.0) 

(SETQ  MTAsternSteam  0.0) 

(SETQ  DeltaT  1.0) 

(SETQ  AheadEnable  'SECURED) 

(SETQ  Aster nEnable  'SECURED) 

(SETQ  MSSteamEnable  'SECURED) 

(SETQ  TurbineHeaderTemp  700.0) 

(SETQ  TurbineHeaderPres  1150.0) 

(SETQ  MSHeaderPres  1200.0) 

(SETQ  IMPresTransl  0.0) 

(SETQ  IMPresTrans2  0.0) 

(SETQ  IMPresTrans3  0.0) 

(SETQ  IMPresTrans4  0.0) 

0  ) 

(defun  MainSteamWarmup  () 

(SETQ  WarmupBypasslMS2A  T) 

(SETQ  WarmupBypasslMS2B  T) 

(SETQ  AheadGuardingWarmupBypass  T) 

(SETQ  Aster nGuardingWarraupBypass  T) 

(SETQ  SteamChestWarmupBypassl  T) 

(SETQ  SteamChestWarmupBypass2  T) 

(SETQ  MSWarmupDrainl  T) 

(SETQ  MSWarmupDr a  in 2  T) 

()) 


;  Chief  Roe 
;  Ch ie  f  Roe 
}  Ch ie  f  Roe 


(defun  MainSteamOperate  () 

(SETQ  WarmupBypasslMS2A  NIL) 

(SETQ  WarmupBypasslMS2B  NIL) 

(SETQ  StopValvelMS2A  T) 

(SETQ  StopValvelMS2B  T) 

(SETQ  SteamChestWarmupBypassl  NIL) 

(SETQ  SteainChestWarinupBypass2  NIL) 

(SETQ  MSWarmupDtainl  NIL) 

(SETQ  MSWarmupDrain2  NIL) 

(SETQ  AheadGuardingWarmupBypass  NIL) 

(SETQ  AsternGuardingWarmupBypass  NIL) 

(SETQ  AheadGuarding  T) 

(SETQ  Aster nGuarding  T) 

(SETQ  MSConstantDrain  T) 

;  Chief  Ski  claims  these  last  three  valves  remain  open  up 
;  to  1/3  Ahead  throttle,  and  for  Astern  operation. 

(SETQ  MSCasingDr ainl  T) 

(SETQ  MSCasingDr a in2  T) 

(SETQ  SteamChestContinuousDrain  T) 

0) 

(defun  MainSteamStatus  () 

(StatusPr int  MainSteamStatusVar s) ) 

(setq  MainSteamStatusVars 

" (Ships peedKnots  ShaftRotationRPM 
AheadGuarding  As ter nGuarding 
TurbineHeaderPres  TurbineHeaderTemp 
Turbinelnle tSteamPres  TurbinelnletSteamTemp 
AheadEnable  Aster nEnable) ) 


B.15  MainTurbine 


(declare  (unspecial  a  b  c  temp)  (flonura  a  b  c  temp) ) 

(defun  MainTurbineRun  () 

(PROG  (a  b  c  temp) 

(COND  ( (NOT  CasualtyMainThrottle Inoperative) 

(COND  ( (>  MSValveStrokeForward  .143) 

(SETQ  ForwardThrottle  T) ) 

(T 

(SETQ  ForwardThrottle  NIL) ) ) 

(SETQ  MainThrottleForwardValveLilft 

(*$  1.282  (-$  MSValveStrokeForward  .143))) 
(COND  ( (<  MainThrottleForwardValveLift  0.0) 

(SETQ  MainThrottleForwardValveLift  0.0)) 

( {>  MainThrottleForwardValveLift  1.0) 

(SETQ  MainThrottleForwardValveLift  1.0))) 
(SETQ  StrokeCrossbarMainThrottleForward 
MainThrottleForwardValveLift) ) ) 


(COND  ( (EQ  AheadEnable  "OPERATING) 

(SETQ  SteamFlowRatioForward 

(*$  100.0  MainThrottleForwardValveLift) ) 

{COND  ((<  SteamFlowRatioForward  50.0) 

(SETQ  a  -.00011764) 

(SETQ  b  (+$  1.152  (*$  SteamFlowRatioForward  -.0002)))) 

(T 

(SETQ  a  (+$  -.000174056 

(*$  SteamFlowRatioForward  1.128E-6))) 

(SETQ  b  {+$  1.212  (*$  SteamFlowRatioForward  -.001552)))))) 
(T 

(SETQ  SteamFlowRatioForward  0.0) 

(SETQ  a  -.00011764) 

(SETQ  b  (+$  1.152  (*$  SteamFlowRatioForward  -.0002))))) 

;  tag  3052 

(SETQ  FB  (  +  $  (*$  a  TurbineHeaderPres)  b)  ) 

(SETQ  FD  (+$  .91  (*$  LPTurbineExhaustPresCondenser  .4912 

(+$  .00044  (//$  1.5148  (+$  SteamFlowRatioForward 

4.04) ) ) ) ) ) 

(SETQ  SupplySteamTempFunction 

(+$  1.0  (*$  SupplySteamTransientTemp 

(-$  TurbineHeaderTemp  950.0)))) 

(COND  ( (<  TurbineHeaderPres  1000.0) 

(SETQ  SupplySteamPresFunction 

(-$  1.0  (*$  -l.OE-6  (-$  1000.0  TurbineHeaderPres))))) 

(T 

(SETQ  SupplySteamPresFunction  1.0))) 

(SETQ  SteamFlowModif ied  {//$  (*$  SteamFlowRatioForward 

S  upplyS  te  amTempFu  notion 
S  upp ly S  te  amPr  e  sFu  notion) 

(*$  FD  FB) ) ) 

(COND  (  (AND  ForwardThrottle  (EQ  AheadEnable  "OPERATING) 

(OR  (<  TurbineHeaderPres  MinValveSupplySteamPres) 

(<  TurbineHeaderTemp  MinValveSupplySteamTemp) ) ) 

(SETQ  FreezeFlag  4) 

(FREEZE  21))) 

(SETQ  LPTurbineExhaustPr es 

(-$  -1.188  (//$  347.513  (-$  SteamFlowRatioForward  195.52)))) 

(SETQ  TurbineDeltaPresExit 

(-$  LPTurbineExhaustPr es 

(*$  LPTurbineExhaustPresCondenser  .4912))) 

(SETQ  a  (-$  10.5  {//$  1983.0  (+$  183.0  SteamFlowRatioForward)))) 

(SETQ  b  (+$  -31.62  (//$  10667.0  (+$  98.94  SteamFlowRatioForward)))) 

(COND  ((<  TurbineDeltaPresExit  0.0) 

(SETQ  temp  (-$  TurbineDeltaPresExit))) 

(T 

(SETQ  temp  TurbineDeltaPresExit))) 

(SETQ  TurbineDeltaEnthalpyExit 

(+$  {*$  a  TurbineDeltaPresExit)  (*$  b  (SQRT  temp)))) 

(SETQ  LPTurbineExhaustEnthalpy 

(+$  1100.0 

(*$  -3.056  SteamFlowRatioForward) 

(*$  .02504  (**$  SteamFlowRatioForward)))) 

(SETQ  TurbineExitEnthalpy 


(-$  LPTurbineExhaustEnthalpy  TurbineDeltaEnthalpyExit) ) 

(SETQ  ForwardSteamFlow  (*$  .6028  SteamFlowModif ied) ) 

(COND  (AheadGuarding 

(SETQ  AheadSteamChestPres  {*$  .97  TurbineHeaderPces) ) 

(SETQ  HPTurbineExhaustPres  (-$  SteamFlowModif ied  20.0)) 

(SETQ  StagelHPPres  (-$  (*$  6.51  SteamFlowModif ied)  15.0)) 

(COND  (ForwardThrottle 

(SETQ  StagelHPTemp  400.0)) 

(T 

(SETQ  StagelHPTemp  (+$  (*$  3.0  SteamFlowModif ied)  553.0)))) 
(SETQ  HPTurbineExhaustTemp 

(*$  StagelHPTemp  .34  TurbineHeaderPres) ) ) 

(T  ;  Ahead  Guarding  off 

(SETQ  AheadSteamChestPres  0.0) 

(SETQ  HPTurbineExhaustPres  0.0) 

(SETQ  StagelHPPres  0.0) 

(COND  (ForwardThrottle  (SETQ  StagelHPTemp  400.0)) 

(T  (SETQ  StagelHPTemp  0.0))) 

(SETQ  HPTurbineExhaustTemp  0.0))) 

(COND  ( (>  HPTurbineExhaustPres  70.0)  (SETQ  HPTurbineExhaustPres  70.0)) 

((<  HPTurbineExhaustPres  0.0)  (SETQ  HPTurbineExhaustPres  0.0))) 
(COND  ( (<  SteamFlowModif ied  70.0) 

(SETQ  a  (*$  2.6  SteamFlowModif ied) ) 

(SETQ  b  (*$  -.4  SteamFlowModif ied) ) ) 

(T 

(SETQ  a  (-$  (*$  5.5  SteamFlowModif ied)  200.0)) 

(COND  ( (<  SteamFlowModif ied  75.0) 

(SETQ  b  (*$  SteamFlowModif ied  -.4))) 

(T 

(SETQ  b  (+$  (*$  -1.3  SteamFlowModif ied)  67.5)))))) 

;  tag  3005 

(SETQ  ShaftTorqueForward  (+$  a  (*$  b  ShaftRotation) ) ) 

(COND  ( (>  MSValveStroke  .133)  (SETQ  Aster nThrottle  T) ) 

(T  (SETQ  As ter nThrottle  NIL))) 

(SETQ  MainThrottleAsternValveLift 

(FBOUNDS  0.0  (*$  1.613  (-$  MSValveStroke  .133))  1.0)) 

(COND  ( (EQ  AsternEnable  'OPERATING) 

(SETQ  AsternStearaFlowFunction 

(*$  100000.0  (**$  MainThrottleAsternValveLift)))) 

(T 

(SETQ  Aster nSteamFlowFunction  0.0))) 

(SETQ  SteamFlowRatioAstern  (//$  (*$  Aster nSteamFlowFunction 

SupplySteamTempFunction 
S  upp  ly  S  te  amPr  e  sFu  nc  t  io  n 
SteamFlowConstantRever se) 

(*$  FB  FD) ) ) 

(COND  (Aster nGuarding  (SETQ  LPTurbinelnletPr esAstern 

(*$  SteamFlowRatioAstern  .007))) 

(T  (SETQ  LPTurbinelnletPresAstern  0.0))) 

(COND  { (AND  Aster nGuarding 
As ter nThrottle 

(<  HPTurbineExhaustTemp  TurbineHeaderTemp) ) 

(SETQ  HPTurbineExhaustTemp  TurbineHeaderTemp) ) 

((<  HPTurbineExhaustTemp  0.0) 


(SETQ  HPTurbineExhaustTemp  0.0))) 


;;  Next  portion  claims  to  be  for  the  condenser. 

(SETQ  TurbineExhaustEnthalpy  1400.0)  ;  move  to  Initialization? 

(SETQ  Aster nSteamFlow  (*$  SteamFlowRatioAster n  .000278)) 

(SETQ  c  (*$  SteamFlowRatio For ward  .00046083  SteamFlowRatioAster n) ) 
(COND  ( (=  c  0.0)  (SETQ  LPTurbineExhaustTemp  0.0)) 

(T  (SETQ  LPTurbineExhaustTemp 

(//$  (+$  (*$  LPTurbineExhaustTempCondenser 
SteamFlowRatioForward) 

(*$  .24885  SteamFlowRatioAstern)  ) 
c)  )  )  ) 

(SETQ  Shaf tTorqueAster n 

(-$  (*$  SteamFlowRatioAstern  Shaf tRotation  -.0002) 

(*$  SteamFlowRatioAstern  .00065))) 

(SETQ  TotalShaftTorque 

(-$  (+$  Shaf tTorqueForward  ShaftTorqueAster n) 

(*$  Shaf  tRotation 

(+$  ShaftFr ictionCoef fl 

(//$  Shaf tFr ictionCoef f 2 

(+$  1.0  (*$  (ABS  ShaftRotation) 

ShaftFr ictionCoef f 3) ))))) ) 

(SETQ  ShaftRotation 

(+$  ShaftRotation 

(//$  (*$  DeltaT  1.0125E-6 

(-$  (*$  TotalShaftTorque  7506.0)  PropTorque) ) 

(+$  1.0  DeltaT)))) 

(COND  ((<  (ABS  ShaftRotation)  ShaftLock ingSpeedWindow) 

(SETQ  ShaftRotation  0.0))) 

(SETQ  ShaftRotationRPM  (*$  ShaftRotation  60.0)) 

;;  ETTNMI  not  here. 

(SETQ  Rever seShaftDirection  (<  ShaftRotation  0.0)) 

(SETQ  ReductionGearNoiseAuralCue 

(AND  CasualtyReductionGearNoise  (NOT  (=  ShaftRotationRPM  0.0)))) 
(SETQ  LPSentinelValveAuralCue 

(NOT  (<  (*$  LPTurbineExhaustPresCondenser  .491)  20.0))) 

(SETQ  PropSpeedAdvance  (*$  .95  ShipSpeed) ) 

(SETQ  temp  (+$  (**$  PropSpeedAdvance) 

(*$  225.0  (**$  ShaftRotation)))) 

(COND  ( (=  temp  0.0) 

(SETQ  AdvanceCoef fFunction  0.0)) 

(T 

(SETQ  AdvanceCoef fFunction 
(FBOUNDS  -1.0 

(//$  (*$  15.0  ShaftRotation)  (SQRT  temp) ) 

1.0)))) 

;  tag  3055 

(COND  ( (<  PropSpeedAdvance  0.0) 

(COND  ( (>  AdvanceCoef fFunction  -.74) 

(SETQ  Pr opThrustCoef f 

(+$  1.23  (*$  .86  AdvanceCoef fFunction) )) ) 

( (>  AdvanceCoef fFunction  -.95) 

(SETQ  Pr opThrustCoef f 

(+S  .634  (*$  .86  AdvanceCoef fFunction) )) ) 


(T 

(SETQ  PropThrustCoef f 

(+$  3.86  (*$  4.25  AdvanceCoeffFunction) ) ) ) ) ) 

({<  AdvanceCoeffFunction  .5) 

(SETQ  PropThrustCoef f 

(-$  {*$  .1  AdvanceCoeffFunction)  .29))) 

((NOT  (<  AdvanceCoeffFunction  .8)) 

(SETQ  PropThrustCoef f 

(-$  (*$  2.2  AdvanceCoeffFunction)  1.66))) 

(T 

(SETQ  PropThrustCoef f 

(-$  (*$  1.133  AdvanceCoeffFunction)  .807)))) 

;  tag  3056 

(COND  ( (<  PtopSpeedAdvance  0.0) 

(COND  ( (<  AdvanceCoeffFunction  -.4) 

(COND  ((NOT  (<  AdvanceCoeffFunction  -.84)) 

(SETQ  PropTorqueCoef f 

(+$  (*$  .077  AdvanceCoeffFunction)  .054))) 

(T 

(SETQ  PropTorqueCoef f 

(+$  (*$  .406  AdvanceCoeffFunction)  .3313))))) 
(T 

(SETQ  PropTorqueCoeff 

(+$  (*$  .042  AdvanceCoeffFunction)  .04))))) 

((<  AdvanceCoeffFunction  .4) 

(SETQ  PropTorqueCoeff 

(-$  (*$  .0393  AdvanceCoeffFunction)  .036))) 

((NOT  (>  AdvanceCoeffFunction  .77)) 

(SETQ  PropTorqueCoeff 

(-$  (*$  .103  AdvanceCoeffFunction)  .061))) 

(T 

(SETQ  PropTorqueCoeff 

(-$  (*$  .2739  AdvanceCoeffFunction)  .1939)))) 

;  tag  3057 

(SETQ  PropOpenWa ter Thrust  (*$  PropThrustCoef f  temp  447.75)) 

(SETQ  PropNetThrust  (*$  .91  PropOpenWaterThrust) ) 

(SETQ  PropTorque  (*$  PropTorqueCoeff  temp  6716.25)) 

(COND  ( (>  ShipSpeed  33.78) 

(COND  ( (>  ShipSpeed  42.23) 

(SETQ  ShipResistance 

(-$  (*$  ShipSpeed  8866.26)  265266.6))) 

(T 

(SETQ  ShipResistance 

(-$  (*$  ShipSpeed  4142.0)  64917.0))))) 

( (>  ShipSpeed  13.51) 

(SETQ  ShipResistance  (-$  (*$  ShipSpeed  3305.37)  36655.6))) 

(  (<  ShipSpeed  0.0) 

(SETQ  ShipResistance  (*$  ShipSpeed  3578.45))) 

(T 

(SETQ  ShipResistance  (*$  ShipSpeed  592.0)))) 

;  tag  3059 

(SETQ  ShipAdvanceCoef f 

(*$  3.3266E-6  (-$  PropNetThrust  ShipResistance))) 

(SETQ  ShipSpeed 


(+$  ShipSpeed  (*$  ShipAdvanceCoef f  DeltaT))) 

(SETQ  ShipSpeedKnots 

(*$  .592  ShipSpeed) ) 

(COND  ( (EQ  AheadEnable  'SECURED) 

(COND  ((OR  (>  MSValveStrokePorward  .143) 

(AND  SteamChestWarmupBypassl 

SteamChestWarmupBypass2) ) 

(SETQ  AheadStearaChestPresRTI 

(//$  (*$  AheadSteamChestPr esTC  AheadSteamChestPres) 
(+$  AheadSteamChestPr esTC  DeltaT)))))) 

( (EQ  AheadEnable  'OPERATING) 

(SETQ  AheadSteamChestPresRTI  AheadSteamChestPres) ) 

( (>  MSValveStrokePorward  .143)  ;  assuming  WARMUP 

(SETQ  AheadSteamChestPresRTI 

(//$  (*$  AheadSteamChestPres  DeltaT) 

(+$  WarmupTC  DeltaT)))) 

(T 

(SETQ  AheadSteamChestPresRTI 

(//$  (+$  (*$  AheadSteamChestRTI  WarmupTC) 

(*$  AheadSteamChestPres  DeltaT)) 

(+$  WarmupTC  DeltaT))))))) 


(defun  MainTurbinelnit  () 

(setq  Aster nGuard ing  (select-ic  '(nil  nil  t  t) ) )  ;  also  in  MainSteam 

(setq  AheadGuarding  (select-ic  '(nil  nil  t  t) ) ) 

;  AheadGuarding  is  also  in  MainSteam  and  Controlair 
(setq  MSValveStroke  (select-ic  '(0.0  0.0  0.0  0.0))) 

(setq  MSValveStrokePorward 

(select-ic  '(0.0  0.0  0.276  0.57)))  ;  also  in  MainSteam 

(SETQ  AheadSteamChestRTI  0.0) 

(SETQ  MainShaftNormalizedRPM  0.0) 

(SETQ  CasualtyMainThrottlelnoperative  NIL) 

(SETQ  ForwardThrottle  NIL) 

(SETQ  Aster nThrottle  NIL) 

(SETQ  MainThrottlePorwardValveLif t  0.0) 

(SETQ  StrokeCrossbarMainThrottlePorward  0.0) 

(SETQ  AheadEnable  'SECURED) 

(SETQ  AsternEnable  'SECURED) 

(SETQ  SteamPlowRatioForward  0.0) 

(SETQ  FB  0.0) 

(SETQ  FD  0.0) 

(SETQ  SupplySteamTempFunction  0.0) 

(SETQ  SupplySteamPresFunction  0.0) 

(SETQ  SteamPlowMod if ied  0.0) 

(SETQ  TurbineDeltaPresExit  0.0) 

(SETQ  TurbineDeltaEnthalpyExit  0.0) 

(SETQ  LPTurbineExhaustEnthalpy  0.0) 

(SETQ  ForwardSteamFlow  0.0) 

(SETQ  Aster nSteamPlow  0.0) 

(SETQ  HPTurbineExhaustPres  0.0) 

(SETQ  StagelHPPres  0.0) 

(SETQ  StagelHPTemp  0.0) 

(SETQ  HPTurbineExhaustTemp  0.0) 


(SETQ  ShaftTorqueForward  0.0) 

(SETQ  MainThrottleAster nValveLif t  0.0) 
(SETQ  SteamFlowRatioAstern  0.0) 

(SETQ  Shaf tTorqueAstern  0.0) 

(SETQ  TotalShaf tTorque  0.0) 

(SETQ  ShaftRotationRPM  0.0) 

(SETQ  ReverseShaftDirection  NIL) 

(SETQ  AdvanceCoeffFunction  0.0) 

(SETQ  PropThrustCoef f  0.0) 

(SETQ  PropTorqueCoeff  0.0) 

(SETQ  PropOpenWaterThrust  0.0) 

(SETQ  PropNetThrust  0.0) 

(SETQ  ShipSpeedKnots  0.0) 

(SETQ  ShipAdvanceCoeff  0.0) 

(SETQ  ShipResistance  0.0) 

(SETQ  CasualtyReductionGearNoise  NIL) 
(SETQ  LPTurbineExhaustPresCondenser  5.0) 
(SETQ  ShipSpeed  0.0) 

(SETQ  PropTorque  0.0) 

(SETQ  ShaftRotation  0.0) 

(SETQ  TurbineExitEnthalpy  0.0) 

(SETQ  LPTurbineExhaustPres  0.0) 

(SETQ  LPTurbineExhaustTemp  70.0) 

(SETQ  AheadSteamChestPresTC  20.0) 

(SETQ  MinValveSupplySteamPres  400.0) 
(SETQ  Mi nVa Ive Supply SteamTemp  600.0) 
(SETQ  SupplySteamTransientTemp  .0006) 
(SETQ  SteamFlowConstantReverse  2.5) 

(SETQ  ShaftFr ictionCoeffl  .1) 

(SETQ  ShaftFr ictionCoeff 2  20.0) 

(SETQ  ShaftFr ictionCoeff 3  10.0) 

(SETQ  Shaf tLockingSpeedWindow  .1) 

(SETQ  WarmupTC  5.0) 

()) 


(version) 


B.16  HCCircPump 


(defun  CircPumpRun  () 

(COND  ( (OR  (NOT  Cir cPumpPower On) 

CasualtyCircPumpMo tor Fail  CircPumpStop 
(NOT  (XOR  CircPumpHighStart  CircPumpLowStar t) ) ) 
;  tag  3709 

(SETQ  CircPumpMotorSpeed  0.0) 

(SETQ  AuralCueCircPumpOn//Of f  NIL) 

(SETQ  CircPumpHighSpeedlndicator  NIL) 

(SETQ  CircPumpLowSpeedlndicator  NIL)) 

((AND  CircPumpHighStart  (NOT  CircPumpLowStar t) ) 

(SETQ  CircPumpMotorSpeed  880.0) 


(SETQ  AuralCueCircPumpHi//Lo  T) 

(SETQ  AuralCueCircPumpOn//Of f  T) 

(SETQ  CircPumpHighSpeedlndicator  T) 

(SETQ  CircPumpLowSpeedIndicator  NIL) ) 

( (AND  CircPumpLowStar t  (NOT  CircPumpHighStar t) ) 
(SETQ  CircPumpMo tor Speed  440.0) 

(SETQ  AuralCueCircPuinpHi//Lo  NIL) 

(SETQ  AuralCueCircPumpOn//Of f  T) 

(SETQ  CircPumpLowSpeedIndicator  T) 

(SETQ  CircPumpHighSpeedlndicator  NIL) ) ) 

0  ) 


(defun  CircPumpInit  () 

(setq  CircPumpLowStart  (select-ic  ^(nil  nil  nil  nil))) 
(setq  CircPumpHighStart  (select-ic  '(nil  nil  nil  nil))) 
(setq  CircPumpStop  (select-ic  '(nil  nil  nil  nil))) 

(SETQ  CasualtyCircPumpMotorFail  NIL) 

(SETQ  AuralCueCircPumpOn//Of f  NIL) 

(SETQ  CircPumpHighSpeedlndicator  NIL) 

(SETQ  CircPumpLowSpeedIndicator  NIL) 

(SETQ  CircPumpMotorSpeed  0.0) 

0  ) 

(defun  TurnOnCircPump  () 

(SETQ  CircPumpHighStart  T) ) 

(defun  CircPumpStatus  () 

( statuspr int  CircPumpStatusVar s) ) 

(setq  CircPumpStatusVar s 

' (CircpumpMotor Speed) ) 

(version) 


B . 17  MCCondPumps 


(defun  MCCondPumpControlRun  () 

(COND  ( (OR  (NOT  CondPumplAPower On) 

CasualtyCondPumplA 

(AND  (NOT  StartCondPumplA) 

(NOT  StopCondPumplA) 

LatchRe layFIag)  ) 

(SETQ  CondPumplAAuralCue  NIL)) 

(StopCondPumplA 

(COND  ( (NULL  LatchRe layFlag)  (SETQ  LatchRe layFlag  T) 

(SETQ  CondPumplAAuralCue  NIL) ) ) ) 

(StartCondPumplA 

(COND  (LatchRe layFlag  (SETQ  LatchRe layFlag  NIL) 

(SETQ  CondPumplAAuralCue  T) ) ) ) 


(SETQ  CondPumplAAuralCue  T) ) ) 

(COND  { (OR  (NOT  CondPumplBPower On) 

CasualtyCondPuraplB 

(AND  (NOT  StartCondPumplB) 

(NOT  StopCondPumplB) 

LatchRelayFlag2) ) 

(SETQ  CondPumplBAuralCue  NIL)) 

(StopCondPumplB 

(COND  ((NULL  LatchRelayFlag2)  (SETQ  LatchRe layFlag2  T) 

(SETQ  CondPumplBAuralCue  NIL)))) 

(StartCondPumplB 

(COND  (LatchRe layFlag2  (SETQ  LatchRe layFlag 2  NIL) 

(SETQ  CondPumplBAuralCue  T) ) ) ) 

(T 

(SETQ  CondPumplBAuralCue  T) ) ) ) 

(defun  MCCondPumpControlInit  () 

(setq  StopCondPumplB  (select-ic  '(nil  nil  nil  nil))) 

(setq  StopCondPumplA  (select-ic  '(nil  nil  nil  nil))) 

(setq  StartCondPumplB  (select-ic  '(nil  nil  nil  nil))) 

(setq  StartCondPumplA  (select-ic  '(nil  nil  nil  nil))) 

(SETQ  CondPumplAAuralCue  NIL) 

(SETQ  CondPumplBAuralCue  NIL) 

(SETQ  LatchRe layFlag  NIL) 

(SETQ  LatchRe layFlag2  NIL) 

(SETQ  CasualtyCondPumplA  NIL) 

(SETQ  CasualtyCondPumplB  NIL) 

(SETQ  CondensatePumpGlandSealLoss  NIL)) 


(declare  (unspecial  temp)  (flonum  temp)) 


(defun  MCCondPumpsRun  () 

(PROG  (temp) 

(MCCondPumpControlRun) 

;  Compute  cavitation  constant. 

(SETQ  CondPumpNetPosSuctionHead  (*$  .03588  HotwellWaterLevel) ) 

;  Calculate  pump  flow  limit. 

(SETQ  CavitationPumpFlowLimit 
(FBOUNDS  0.0 

(-$  (*$  CavitationCurveSlope  CondPumpNetPosSuctionHead) 
Cav i ta t io nCu r vein ter cep t) 

900.0) ) 

(SETQ  CondensatePumpGlandSealLoss  NIL) 

(SETQ  CondensateRecircPathClosed  NIL) 

(SETQ  RecircFlowDemand  0.0) 

(SETQ  PumplAFlow  0.0) 

(SETQ  PumplBFlow  0.0) 

(SETQ  RecircFlow  0.0) 

(SETQ  Condensate Flow  0.0) 

(SETQ  CondensateFlowAECondenser  0.0) 


(SETQ  PumpDischargePtes  0.0) 

(SETQ  PumpDischargePr es2  0.0) 

(COND  ( (<  HotwellWaterLevel  .1) 

(SETQ  RecircFlow  0.0) 

(SETQ  CondensateFlow  0.0) 

(SETQ  CondensateFlowAECondenser  0.0) 

(SETQ  PumplADischargePres  0.0) 

(SETQ  PumplBDischargePr es  0.0)) 

(T  ;  This  is  the  DO  loop  contents. 

(COND  ( (XOR  CondPumplAAuralCue  PumplAVentValve) 

(Malop  4  bitO ) ) ) 

(COND  (PumplASuctionValve 

(COND  ( (NULL  PumplAGlandSealValve) 

(SETQ  CondensatePumpGlandSealLoss  T) ) ) 

;  test  pump  power  on 

(COND  ( (NOT  CondPumplAAuralCue) 

(SETQ  PumplADischargePres  HotwellBottomPr esHead) ) 

(T 

(COND  ((OR  (>  LPTurbineExhaustPr esCondenser  EPK7 ) 
PumplAVentValve) 

(COND  ( (>  LPTurbineExhaustPresCondenser  EPK7) 

(SETQ  EPC  (*$  EPK6  HotwellWaterLevel)))) 

;  tag  3612 

(SETQ  PumplADischargePres 

(+$  (*$  (-$  NoFlowPumpPres  CoolingWaterPr esHead) 
(-$  1.0  PumplADischargeValve) ) 
CoolingWaterPresHead) ) 

(SETQ  TotalCondPumpHead 
(FBOUNDS  0.0 

(-$  PumplADischargePres 
Ho  twe  1  iBo  t  tomPr  e  sHe  ad ) 
NoFlowPumpPres) ) ) 

(T 

(SETQ  CavitationPumpFlowLimit  0.0) 

(SETQ  TotalCondPumpHead  0.0))) 

;  tag  3613 

(COND  (ValveAlignedForRecirc 
(SETQ  RecircFlowDemand 

(*$  (+$  ThermostaticValveCoef f 
ManualBypassValveCoef f ) 

(-$  CoolingWaterPresHead 
Ho  twe 1 iBo  t  tomPr  e  sHe  ad ) 

MaximumPumpFlow) ) 

(COND  ( (<  RecircFlowDemand  0.0) 

(SETQ  RecircFlowDemand  0.0))))) 

;  tag  3609 

(COND  ( (NOR  CondensateSystemShutof fValve 
ValveAlignedForRecirc) 

(SETQ  PumplADischargePres 

(+$  NoFlowPumpPres  HotwellBottomPr esHead;  ) ) 

(T 

( COND  ( Co nde n sa  te Sy s  temSh u to f f Va Ive 

;Compute  single  pump  flow  characteristic  curve 
(SETQ  temp 


(*$  107.0  (SQRT  (-$  NoFlowPumpPtes 

TotalCondPumpHead) ) ) ) 
(SETQ  PumpFlowLoad Intercept 

(*$  temp  PumplADischargeValve) ) ) 
(ValveAlignedForRecirc  ;  tag  3605 

(SETQ  PumpFlowLoadlntercept 
(*$  7.48 

MaxRecitcFlowSing lePump 
PumplADischargeValve 
(+$  ThermostaticValveCoef f 
ManualBypassValveCoef f ) ) ) 

(SETQ  Condense teRecircPathClosed  T) ) ) 

;  tag  3606 

(COND  ( (>  PumpFlowLoadlntercept 

Cav ita  t ionPumpFlowLimit ) 

(SETQ  PumplAFlow  CavitationPumpFlowLimit) ) 

(T 

(SETQ  PumplAFlow  PumpFlowLoadlntercept) ) ) 

(COND  (CondensateRecircPathClosed 
(SETQ  PumplADischargePr es 
(-$  NoFlowPumpPr es 

(*$  RecircPresConstant 
PumplAFlow) )))))))))) 

;  Repeat  for  PumplB 

(COND  ( (XOR  CondPumplBAuralCue  PumplBVentValve) 

(Malop  4  bitO))) 

(COND  (PumplBSuctionValve 

(COND  ( (NULL  PumplBGlandSealValve) 

(SETQ  CondensatePumpGlandSealLoss  T) ) ) 

;  test  pump  power  on 

(COND  ( (NOT  CondPumplBAuralCue) 

(SETQ  PumplBDischargePr es  HotwellBottomPresHead) ) 


(T 

(COND 


(OR  (>  LPTurbineExhaustPresCondenser  EPK7) 

P  ump  IB  Ve  n  t  Va  1  ve ) 

(COND  ( (>  LPTurbineExhaustPresCondenser  EPK7 ) 

(SETQ  EPC  (*$  EPK6  HotwellWaterLevel) ) ) ) 

;  tag  3612 

(SETQ  PumplBDischargePres 

(+$  (*$  (-$  NoFlowPumpPtes  CoolingWaterPr esHead) 
(-$  1.0  PumplBDischargeValve) ) 
CoolingWaterPr esHe ad) ) 

(SETQ  TotalCondPumpHead 

(FBOUNDS  0.0  (-$  PumplBDischargePres 

Ho  twe  1  iBo  t  tomPr  e  sHe  ad ) 
NoFlowPumpPtes)  )  ) 


(SETQ  CavitationPumpFlowLimit  0.0) 
(SETQ  TotalCondPumpHead  0.0))) 

;  tag  3613 

(COND  (ValveAlignedForRecirc 
(SETQ  RecircFlowDemand 

(*$  (+$  ThermostaticValveCoef f 
Ma  nu  a IBypa  s  s Va Iv  e  Coe  f  f ) 


(-$  CoolingWaterPresHead 
HotwellBottomPr esHead) 
MaximumPumpPlow) ) 

(COND  ( (<  RecircFlowDemand  0.0) 

(SETQ  RecircFlowDemand  0.0))))) 


;  tag  3609 

(COND  ( (NOR  CondensateSystemShutof fValve 
Valve Al ignedForRecirc) 

(SETQ  PumplBDischargePces 

(+$  NoFlowPumpPr es  HotwellBottomPr esHead) ) ) 

(T 

( COND  ( Co nde  n sa te Sy s te mSh u to f  f Va  Iv e 

;Compute  single  pump  flow  characteristic  curve 
(SETQ  temp 

(*$  107.0  (SQRT  (-$  NoFlowPumpPr es 

TotalCondPumpHead) ) ) ) 
(SETQ  PumpFlowLoadIntercept 

(*$  temp  PumplBDischargeValve) ) ) 

(Va IveAl ignedForRecirc 
;  tag  3605 

(SETQ  PumpFlowLoadIntercept 
(*$  7.48 

MaxRec it cFlowS ingle Pump 
PumplBDischargeValve 
(+$  ThermostaticValveCoef f 
ManualBypassValveCoef f ) ) ) 

(SETQ  CondensateRecircPathClosed  T) ) ) 

;  tag  3606 

(COND  ( (>  PumpFlowLoadIntercept 

CavitationPumpFlowLimit) 

(SETQ  PumplBFlow  CavitationPt'mpFlowLimit)  ) 

(T 

(SETQ  PumplBFlow  PumpFlowLoadIntercept))) 

(COND  (CondensateRecircPathClosed 
(SETQ  PumplBDischargePtes 
(-$  NoFlowPumpPr es 

(*$  RecircPr esConstant 


PumplBFlow) )))))))))) 

;  after  the  DO  loop 

(SETQ  CondensateFlow  (+$  PumplAFlow  PumplBFlow) ) 

(COND  (CondensateRecircPathClosed 

(SETQ  CondensateFlowAECondenser  (*$  CondensateFlow  .13369))) 
(T 


(SETQ  CondensateFlowAECondenser 

(MIN  RecircFlowDemand  (*$  CondensateFlow  .13369))))) 
(SETQ  RecircFlow  CondensateFlowAECondenser))))) 


(defun  MCCondPumpsInit  () 


(MCCondPumpControiln it) 

(setq  CondensateSystemShutof fValve  (select-ic  '(nil  nil  t  t) ) ) 
(setq  PumplBVentValve  (select-ic  '(nil  nil  nil  t) ) ) 


(setq  PumplAVentValve  (select-ic  '(nil  nil  t  t)  ) ) 

(setq  PumplBGlandSealValve  (select-ic  '(nil  nil  nil  t) ) ) 
(setq  PuraplAGlandSealValve  (select-ic  '(nil  nil  t  t) ) ) 
(setq  PumplBSuctionValve  (select-ic  '(nil  nil  nil  t) ) ) 
(setq  PumplASuctionValve  (select-ic  '(nil  nil  t  t) ) ) 

(setq  PumpDischargeValve2  (select-ic  '(0.0  0.0  1.0  1.0))) 
(setq  PumpDischargeValvel  (select-ic  '(0.0  0.0  1.0  1.0))) 

(SETQ  CoolingWaterPresHead  0.0)  ;  This  may  be  wrong. 

(SETQ  CondPumpNetPosSuctionHead  0.0) 

(SETQ  Condensate Flow  0.0) 

(SETQ  CondensateRecircPathClosed  NIL) 

(SETQ  Conden sate Flow AECondenser  0.0) 

(SETQ  RecitcFlow  0.0) 

(SETQ  CavitationPumpFlowLimit  0.0) 

(SETQ  EPK6  15.0) 

(SETQ  CavitationCurveSlope  1395.0) 

(SETQ  CavitationCurveIntercept  300.0) 

(SETQ  NoFlowPumpPres  76.0) 

(SETQ  MaximumPumpFlow  42.0) 

(SETQ  MaxRecircFlowSinglePump  18.0) 

(SETQ  RecircPresConstant  .2) 

(SETQ  EPK7  26.0) 

0) 

(defun  TurnOf fCondensatePumps  () 

(SETQ  Star tCondPumplA  NIL) 

(SETQ  StartCondPumplB  NIL) 

(SETQ  StopCondPumplA  T) 

(SETQ  StopCondPumplB  T) ) 

(defun  TurnOnCondensatePumps  () 

(SETQ  StartCondPumplA  T) 

(SETQ  StartCondPumplB  T) 

(SETQ  StopCondPumplA  NIL) 

(SETQ  StopCondPumplB  NIL) ) 

(version) 


B.18  MCRecirc 


(declare  (unspecial  temp)  (flonum  temp)) 

(defun  MCRecircRun  () 

(PROG  (temp) 

;  tag  3294 

;  First  Clause  to  come  depends  on 

;  CommonCondenserFill,  which  in  independent  mode  is 
;  always  T. 

(COND  ( (NOT  MCFillStopValve) 

(SETQ  CondenserFillFlow  0.0)) 


( (OR  Condenser RecircValveHi  CondenserRecircValveLo) 

(SETQ  temp  {-$  FeedwaterCoolerptes 

(+$  HotwellBottomPresHead  15.0))) 

(COND  ( (<  temp  0.0) 

(SETQ  Condenser FillFlow  FillFlowRateConstant) ) 

(T 

(SETQ  CondenserFillFlow  (*$  FillFlowRateConstant 

(SQRT  temp) ) ) ) ) ) 

(T 

(SETQ  CondenserFillFlow  FillFlowRateConstant))) 

;  tag  3295 

(COND  ( (OR  CondenserRecircValveHi  CondenserRecircValveLo) 

(SETQ  ValveAlignedForRecirc  T) 

(COND  (  (AND  CondenserRecircValveHi  CondenserRecircValveLo) 
(Malop  4  bitl) ) ) ) 

(T 

(SETQ  ValveAlignedForRecirc  NIL))) 

;  tag  3296 

(SETQ  ManualBypassValveCoef f  (*$  ManualFlowBypassValveCoef f 

ManualRecircBypassValve) ) 

(COND  ( (>  CoolingWaterTemp  150.0) 

(COND  (CasualtyRecircValveFailClosed 

(SETQ  ThermostaticValveCoef f  0.0)) 

(T 

(SETQ  ThermostaticValveCoef f  1.0)))) 

( {>  RecircValveOpenTemp  CoolingWaterTemp) 

(SETQ  ThermostaticValveCoef f  0.0)) 

(T  ;  Instead  of  LE,  tag  3291 

(COND  (CasualtyRecircValveFailClosed 

(SETQ  ThermostaticValveCoef f  0.0)) 

(T 

(SETQ  ThermostaticValveCoef f 
(FBOUNDS  0.0 

(//$  (-$  CoolingWaterTemp 

RecircValveOpenTemp) 

(-$  150.0  RecircValveOpenTemp) ) 

1.0)))))))) 

(defun  MCRecircInit  () 

(setq  ManualRecircBypassValve  (select-ic  '(0.0  0.0  0.0  0.0))) 
(setq  MCFillStopValve  (select-ic  '(nil  nil  nil  nil))) 

(setq  CondenserRecircValveLo  (select-ic  '(nil  nil  t  t) ) ) 

(setq  CondenserRecircValveHi  (select-ic  '(nil  nil  nil  nil))) 

(SETQ  CasualtyRecircValveFailClosed  NIL) 


(SETQ  CommonCondenserFill  T)  ; 
(SETQ  FeedwaterCoolerPr es  30.0)  ; 
(SETQ  FillFlowRateConstant  5.0) 

(SETQ  ManualFlowBypassValveCoef f  1.0) 
(SETQ  RecircValveOpenTemp  140.0) 


assuming  independent  mode 
assuming  independent  mode 


(version) 


B.19  NCSeaCirc 


(declare  (unspecial  a  b  temp)  (flonum  a  b  temp) ) 

(defun  MCSeaCircRun  () 

(PROG  (a  b  temp) 

(COND  ((<  ShipSpeedKnots  0.0)  (SETQ  temp  0.0)) 

(T  (SETQ  temp  ShipSpeedKnots))) 

(store  (TSPres  1)  (*$  PumpFlowCoef f  (**$  CircPumpMotorSpeed) ) ) 

(store  (TSPres  2)  (*$  ScoopFlowCoef f  (**$  temp))) 

(store  (TSFlowRes  1)  (+$  (*$  ResFunSlopel  CircPumpMotorSpeed) 

ResFunintercept) ) 

(store  (TSFlowRes  2)  (+$  (*$  ResFunSlope  temp) 

ResFuninterceptO ) ) 

(store  (TSFlowRes  3)  (//$  (*$  (TSFlowRes  1)  (TSFlowRes  2)) 

(+$  (TSFlowRes  1)  (TSFlowRes  2)))) 

(store  (TSPres  3)  (//$  (+$  (*$  (TSPres  1)  (TSFlowRes  2)) 

(*$  (TSPres  2)  (TSFlowRes  1))) 

(+$  (TSFlowRes  1)  (TSFlowRes  2)))) 

(SETQ  temp  (*$  MCSWValveCoeff  DischargeButter f lyValvePos) ) 

(SETQ  temp  (//$  temp  (+$  1.0  (*$  temp  MCSWValveFactor ) ) ) ) 

(SETQ  a  (SQRT  temp) ) 

;  at  DO  loop 

(for  i  from  1  to  3  do 

(SETQ  b  (*$  a  .5  (+$  MCSWResConstant  (TSFlowRes  i) ) ) ) 

(Store  (TCFlow  i)  (*$  (-$  (SQRT  (+$  (**$  b)  (TSPres  i) ) )  b)  a)) 

(store  (TCPres  i)  (-$  (TSPres  i)  (*$  (TSFlowRes  i)  (TCFlow  i))^) 

(COND  ((AND  PurapButter flyValve  PumpFlapperOpen) 

(COND  ((AND  ScoopButter flyValve  ScoopFlapperOpen) 

(SETQ  MCSWCondFlow  (TCFlow  3)) 

(SETQ  MCSWCondPres  (TCPres  3))) 

(T 

(SETQ  MCSWCondFlow  (TCFlow  1)) 

(SETQ  MCSWCondPres  (TCPres  1))))) 

((AND  ScoopButter flyValve  ScoopFlapperOpen) 

(SETQ  MCSWCondFlow  (TCFlow  2)) 

(SETQ  MCSWCondPres  (TCPres  2))) 

(T 

(SETQ  MCSWCondFlow  0.0) 

(SETQ  MCSWCondPres  0.0))) 

(SETQ  CondenserWaterBoxPres  (+$  MCSWCondPres  StaticCondenserPr esReading) ) 
(SETQ  SeaWaterCoolantMassFlow  (*$  MCSWCondFlow  .13369)) 
j  start  of  branching  to  3320 

(COND  ( (AND  PumpButter flyValve  PumpFlapperOpen)  ;  tag  3310 

(SETQ  temp  (//$  (-$  (TSPres  1)  MCSWCondPres)  (TSFlowRes  1))) 

(SETQ  SCPumpDischargePres  (+$  (*$  MCSWPumpCoef f  temp) 

MCSWCondPres 

StaticPumpSuctionReading) ) 

(SETQ  SWPumpSuctionPres  (-$  StaticPumpSuctionReading 

(*$  (-$  ResFunintercept 
MCSWPumpCoef f) 
temp) ) ) ) 

((NOR  PumpButter flyValve  PumpFlapperOpen) 


;  tag  3311 


*•,'  w:  v\  \f_  '^.1 


(SETQ  a  (//$  1.0  (+$  1.0  MCSWComplianceConstant) ) ) 

(SETQ  temp  (+$  SWPumpSuctionPr es  (*$  a  SCPumpDischargePres) ) ) 
(SETQ  SWPumpSuctionPr es 

{*$  (-$  temp  (*$  MCSWComplianceConstant  (TSPres  1)))  a)) 
(SETQ  SCPumpDischargePres 

(*$  (+$  temp  (TSPres  1))  a))) 

(PumpButter  f  lyValve  ;  tag  33^.2 

(SETQ  SWPumpSuctionPr es  StaticPumpSuctionReading ) 

(SETQ  SCPumpDischargePres 

(+$  StaticPumpDischargeReading  (TSPres  1)))) 

(T 

(SETQ  SWPumpSuctionPr es 

(-$  (+$  StaticPumpSuctionReading  MCSWCondPr es)  (TSPres  1))) 
(SETQ  SCPumpDischargePres 

(+$  StaticPumpDischargeReading  MCSWCondPr es) )) ) 

;  tag  3320 

(SETQ  a  (-$  MCSWCondPres  (TSPres  1))) 

(COND  ( (>  a  0.0) 

(SETQ  PumpFlapperPosCommand  NIL) 

(COND  ( (<  a  PumpFlapperBangingWidth) 

(SETQ  PumpFlapper Banging  T) ) 

(T 

(SETQ  PumpFlapperBanging  NIL)))) 

(T 

(SETQ  PumpFlapperPosCommand  T) ) ) 

;  tag  3330 

(SETQ  a  (-$  MCSWCondPres  (TSPres  2))) 

(COND  ( (>  a  0.0) 

(SETQ  ScoopFlapperPosCommand  NIL) 

(COND  ( (<  a  ScoopFlapperBangingWidth) 

(SETQ  ScoopFlapper Banging  T) ) 

(T 

(SETQ  ScoopFlapper Banging  NIL) ) ) ) 

(T 

(SETQ  ScoopFlapperPosCommand  T) ) ) 

;  tag  3390 

;  here  things  get  VERY  confused! 

;  tag  3330 
)  ) 


defun  MCSeaCircInit  () 

(setq  DischargeButter  f  lyValvePos  (select-ic  '*(0.0  0.0  1.0  1.0))) 
(setq  ScoopFlapperQuiteOpen  (select-ic  '(t  t  nil  nil))) 

(setq  PumpFlapperOpen  (select-ic  '(nil  nil  nil  nil))) 

(setq  ScoopFlapperOpen  (select-ic  '(nil  nil  t  t) ) ) 

(setq  PumpButter flyValve  (select-ic  '(nil  nil  t  t) ) ) 

(setq  ScoopButter flyValve  (select-ic  '(nil  nil  t  t) ) ) 

(SETQ  PumpFlapperPosCommand  NIL) 

(SETQ  PumpFlapperPosEnable  NIL) 

(SETQ  PumpFlapperBanging  NIL) 

(SETQ  ScoopFlapperPosCommand  NIL) 

(SETQ  ScoopFlapper PosEnable  NIL) 


E-57 


(SETQ  ScoopFlapper Banging  NIL) 

(FILLARRAY  TCPres  '{0.0)) 

(FILLARRAY  TCFlow  "(O.O)) 

(FILLARRAY  TSFlowRes  '(0.0)) 
(FILLARRAY  TSPres  '(0.0)) 

;  model  constants 
(SETQ  MCSWComplianceConstant  2.0) 
(SETQ  StaticPumpSuctionReading  3.1) 
(SETQ  StaticPumpDischargeReading  3.1) 
(SETQ  StaticCondenserPresReadlng  3.1) 
(SETQ  MCSWPumpCoeff  .0001667) 

(setq  MCSWCondFlow  0.0) 

(SETQ  ScoopFlapper Bang ingWidth  0.0) 
(SETQ  PumpFlapperBang ingWidth  0.0) 
(SETQ  SecuredCondenserPres  0.0) 

(SETQ  SecuredCondenserFlow  0.0) 

(SETQ  MCSWResConstant  6.24E-5) 

(SETQ  MCSWValveFactor  6.703E-9) 

(SETQ  MCSWValveCoeff  l.OElO) 

(SETQ  ScoopFlowCoef f  .02169) 

(SETQ  ResFunSlope  1.6275E-5) 

(SETQ  ResFunlnterceptO  4.72E-5) 

(SETQ  PumpFlowCoeff  2.289E-5) 

(SETQ  ResFunSlopel  9.592E-7) 

(SETQ  ResFunIntercept  .000225) 

(SETQ  SWPumpSuctionPres  0.0) 

(SETQ  SCPuropDischargePtes  0.0) 

(SETQ  CondenserWaterBoxPres  0.0) 

0  ) 

(version) 


B.20  MTGlandSeal 


(declare  (unspecial  temp  abed)  (flonum  temp  abed)) 

(defun  MTGlandSealRun  () 

(PROG  (temp  abed) 

(COND  ( (>  LPTurbineExhaustPr esCondenser  20.0) 

(SETQ  a  (-$  (*$  GlandSteamLeakof fCoef f  MainShaf tNormalizedRPM) 

1.0))) 

(T 

(SETQ  a  (+$  (*$  GlandSteamLeakof fCoeff  MainShaf tNormalizedRPM) 
(*$  .015  LPTurbineExhaustPr esCondenser ) 

-.4)))) 

;  leakoff  done,  now  the  bypass  valve 

(COND  ((AND  ISOlbSteamEnable  (>  SupplyBypassValve  .1)) 

(SETQ  b  (*$  BypassValveCoef f  (-$  SupplyBypassValve  .1)))) 


;  Override 


(SETQ  b  0.0) )  ) 

(COND  ( JackHandleOper ative 

(SETQ  c  (*$  UnloadingValveMOCoef f 

(-$  Un lo ad ingValveStroke Indicator 
StemPositionUnloadingValve) ) ) ) 

(T 

(SETQ  c  0.0) ) ) 

(SETQ  d  (+$  a  b) )  ;  start  with  valve  auto  enable  flags  off 

(SETQ  EYKUV  NIL) 

(SETQ  EYKSV  NIL) 

(SETQ  EYP50C  0.0)  ;  These  are  locals,  I  suppose 

(COND  ((AND  SenseSupplyValve  (=  SupplyValveCAPr es  20.0)) 

;  tag  4251  -  supply  enabled 
(SETQ  EYKSV  T) ) 

(T  ;  supply  disabled  -  failed  open 

(SETQ  EYXSV  T) ) ) 

(COND  ((AND  CasualtyGlandSteamLoss  (=  UnloadingValveCAPr es  20.0)) 
(COND  (SenseUnloadingValve  (SETQ  EYKUV  T) ) 

(T  (SETQ  EYXUV  NIL) ) ) ) 

(T 

(SETQ  EYXUV  T) ) ) 

(COND  (ISOlbSteamEnable 

(COND  ( (AND  CasualtyGlandSteamLoss 

(=  UnloadingValveCAPres  20.0)) 

(COND  (SenseUnloadingValve 

(SETQ  EYP50C  (+$  d  C  2.0))) 

( (AND  SenseSupplyValve 

(=  SupplyValveCAPr es  20.0)) 

(SETQ  EYP50C  (+$  d  2.0))) 

(T 

(SETQ  EYP50C  10.0) )) ) 

(T 

(SETQ  EYP50C  (+$  d  c  -1.0))))) 

(T 

(SETQ  EYP50C  0.0) ) ) 

;  tag  4254 

(SETQ  EYP50C  (MIN  EYP50C  10.0))  j  unloading  valve  indication 
(COND  (EYKUV 

(COND  ( (>  GlandManifoldSteamPr es  3.0) 

(SETQ  UnloadingValveStrokeIndicator  1.0)) 

( (>  GlandManifoldSteamPres  2.0) 

(SETQ  UnloadingValveStrokeIndicator 

(-$  GlandManifoldSteamPres  2.0))) 

(T 

(SETQ  UnloadingValveIndicator  0.0))))) 

;  tag  4255  -  supply  valve  indicator 
(COND  (EYKSV 

(COND  ( (>  GlandManifoldSteamPres  2.0) 

(SETQ  SupplyValveStrokeIndicator  0.0)) 

( (>  GlandManifoldSteamPres  1.0) 

(SETQ  SupplyValveStrokeIndicator 

(-$  2.0  GlandManifoldSteamPres))) 


(SETQ  SupplyValveStrokeIndicator  1.0))))) 

;  tag  4256  -  updating  pressure  gages 
(COND  ( (=  Unload ingValveCAPres  0.0) 

(SETQ  UnloadingValveActuationAirPres  0.0) 

(SETQ  UnloadingValveAirPres  NIL)) 

(T 

(SETQ  UnloadingValveActuationAirPres 

(-$  ValveCAPresMax  (*$  7.0  UnloadingVaiveStrokeIndicator )  )•) 
(SETQ  UnloadingValveAirPres  T) ) ) 

(COND  ( {=  SupplyValveCAPres  0.0) 

(SETQ  SupplyValveActuationAirPr es  0.0) 

SETQ  SupplyValveAirPres  NIL) ) 

(T 

(SETQ  SupplyValveActuationAirPres 

(+$  (*$  7.0  (-$  1.0  SupplyValveStrokeIndicator)) 
ValveCAPresMin) ) 

(SETQ  SupplyValveAirPres  T) ) ) 

(SETQ  GlandManifoldSteamPres 

(//$  (+$  (*$  GlandManifoldSteamPres  G lands teamPresTC) 

(*$  EYP50C  DeltaT)) 

(+$  GlandsteamPresTC  DeltaT))) 

(COND  ( (<  GlandManifoldSteamPres  .1) 

(SETQ  CasualtyGlandSealLoss  T) 

(SETQ  GlandSteamFlow  0.0) 

(SETQ  GlandsteamEnthalpy  0.0) 

(SETQ  GlandManifoldSteamPres  0.0)) 

(T 

(SETQ  CasualtyGlandSealLoss  NIL) 

(SETQ  GlandSteamFlow  .12) 

(SETQ  GlandsteamEnthalpy  1200.0))) 

(COND  ((OR  (>  GlandManifoldSteamPres  9.0) 

(NULL  SenseUnloadingValve2) ) 

(Malop  1  Bit7 ) ) ) ) ) 


(defun  MTGlandSeallnit  () 

(setq  SupplyBypassValve  (select-ic  '(0.0  0.0  0.0  0.0))) 

(setq  StemPositionUnloadingValve  (select-ic  '(1.0  1.0  1.0  1.0))) 
(setq  SenseUnloadingValve2  (select-ic  '(nil  nil  t  t)  ) ) 

(setq  SenseUnloadingValve  (select-ic  '(nil  nil  t  t) ) ) 

(setq  SenseSupplyValve  (select-ic  '(nil  nil  t  t)  ) ) 

(setq  JackHandleOperative  (select-ic  '(nil  nil  nil  nil))) 

(SETQ  SupplyValveAirPres  NIL) 

(SETQ  UnloadingValveAirPres  NIL) 

(SETQ  SupplyValveCAPres  0.0) 

;;  Model  Constants 

(SETQ  GlandManifoldSteamPres  0.0) 

(SETQ  ValveCAPresMin  13.0) 

(SETQ  ValveCAPresMax  20.0) 

(SETQ  BypassValveCoef f  3.0) 

(SETQ  UnloadingValveMOCoeff  4.0) 

(SETQ  GlandsteamPresTC  15.0) 

(SETQ  GlandSteamLeakof fCoef f  .84) 


n  TurnOnMTGlandSeal  () 

SETQ  SupplyValveStrokelndicator  .5) 

SETQ  UnloadingValveStrokelndicator  .5)) 


